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誠 文 堂 新光 社 


必 


O ど う も , いま まで の 入門 書 で は 難 か し すぎ る し , つま ら な いと 思っ て いる 人 . 
O せ っ か く コ ンピュータ を 始め た の に 自分 の や り た いこ と が うま く で き な い 人 . 
Oo 市 販 の ゲー ム じ ゃ お も し ろく な い 人 . 

O ゲ ー ム プロ グラ マー の 仲間 に な っ て , 大 金持ち に な り た い 人 . 

O コ ンピュータ を 使っ た プレ ゼン テー ショ ン を や り た い 人 . 

O 子 供 達 に , 楽し く コ ンピュータ を 教え て あげ た い 人 . 


この 本 は , そう いう 人 の た め に 書か れ ま し た . いま 話題 の QuickBASIC を 使 
っ て スー パー ダー ム を 題材 に 。 な る べく 楽し く 。 わ か りや すく コン ピュ ー タ の 
プロ グラ ム を 説明 し て いま す . 

また , 子供 だ まし の ゲー ム で は な く , 市 販 の ゲー ム に 負け な いよ うな さま ざ 
まな 本 格 的 な ゲー ム の 作り 方 に つい て も 学ぶ こと が で きま す . 

コン ピュ ー タ を 前 に , 実際 に プロ グラ ム を 動か し な が ら 読 み 進ん で いく こと 
を お 勧め し ます . 

読み 終 を る ころ に は , 知ら ず 知ら ず の う ち に , プロ グラ ム に 関す る さま ざま 
な 知識 と , いろ いろ な 分 野 に 応用 で きる テク ニッ ク が 身 に 付く こと と 思い ます . 


最後 に , 本 書 の 出版 に 当たり , 多大 な ご 尽力 を いた だ いた 誠 文 堂 新光 社 の 北 
村 俊 一 様 , お よび 川名 昭治 様 に 心から お 礼 を 申し 上 げ ま す . 


1992 年 7 月 著 者 
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本 書 の プロ グラ ム は 。 MS-DOS と Quick BASIC バー ジョ ン 4.5 を 使用 し て 
いま す .。 また 。 使用 し た パソ コン は , PC-9801DA- 2 お よび PC-9801SX/E で 
す .。 ハー ド デ ィ スク は あっ た 方 が 楽 で す が , な く て も 構い ませ ん . 

速度 な ど が , いま 使っ て いる パソ コン に 合わ な いと き は , 途中 で 時 間 か せ ぎ 
に 使っ て いる , 


FORI = 0TO? 


の , ? に あたる 部 分 の 数 字 を 適当 な 値 に 変え て くだ さい . キャ ラク タ を 入れ る た 
め の 配列 の 値 は , 他 の パソ コン で の 使用 も 考え を て, あら か じ め 大 きめ に と っ て 
あり ます . IBM PC/AT , IBM PS55 シリ ー ズ , FM TOWNS , FMR シリ 
ー ズ , アッ プル の マッ キン トッ シュ シリ ー ズ な ど , Quick BASIC の 走る 他 の 
パソ コン 上 で も , SCREEN 命令 の あと の 数 字 , 画面 セー ブ を する と き の 番 地 
な ど , 若干 の 変更 で プロ グラ ム は 走る は ず で す . 著者 の 場合 , 同じ し プログラム 
を , 
SCREEN 12:WINDOW_SCREEN (0, 0)-(639, 479) 


と する だ け で , VGA 対応 の IBM PC/AT 上 で 走ら せ て いま す . パソ コン の 
性 能 が 上 が っ て きた 現在 。 大 切な の は 速度 な を ど よ り も 移植 性 だ と 考え , 機械 語 
の 使用 は し て いま せん . (プロ グラ ム 中 の , _ は スペ ー ス の 意味 で す ) 


サ プ ル ー チ ー ン は , 本 体 の メイ ン 部 分 と 分 けた 方 が . メモ リ 効 率 や 他 の プロ 
グラ ム へ の 応用 と いう 点 で 優れ て いる の で す が , 管理 部 分 を 本 の 中 に 書く と わ 
か り に くく な る の で , 苦 の まま 本 体 の プロ グラ ム の 中 に 書く や り 方 を と っ て い 
ます 。 
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本 書 の 使い 方 


* 注 意 書 の マー ク 
本 書 中 の 注意 書 に は , 下 の よ うな 意味 の マー ク が 付い て いま す . 


| : 注意 し て くだ さい . 
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| | 
・ 残念 な が ら , 場合 に よっ て は 満足 の いく 結果 が 得 ら れ ま せん . 
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本 書 の 使い 廊 


文 登録 商標 に つい て 


OoMicrosoft, MS-DOS, Quick BASIC, Microsoft Word, Word BASIC, 
Visual BASIC, Windows、 EDLIN は , 米国 マイ クロ ソフ ト 社 の 登録 商標 で 
39:。 

OPC-9801 は , 日 本 電気 (株 ) の 登録 商標 で す . 

oIBM PC/AT, PC-DOS は , 米国 IBM 社 の 登録 商標 で す . 

O マ ッ キ ント ッシュ は , アッ プル コン ピュ ー タ 社 の 登録 商標 で す . 

oFM TOWNS は , 富士 通 (株 ) の 登録 商標 で す . 

oO その他, 各種 市 販 ソ フト 名 は 各社 の 登録 商標 で す . 
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昌 較 じ め の ま 意 / 


プロ グラ ム の 勉強 で 大 事 な の は , まず や っ て みる こと で す . 

本 を 読む だ け で は な く , ぜひ パソ コン の 前 に 座っ て , 実際 に パソ コン を 動か 
し な が ら 覚 えて いっ て くだ さい . 

プロ グラ ム を 入れ る (入力 する ) と き に は , いく つか 注意 する こと が あり ます . 
実際 に 始め る 前 に , 次 の 「『 プ ログ ラム を 入力 する た め の 注 意 事項 】 を お 読み く 
だ さい . 


娘 プ ログ ラム を 入力 する た め の 注 意 事項 


軸 還 較 草 | 本 書 に 掲載 され て いる プロ グラ ム を パソ コン に 入力 する と き に は , 
涼 の よう な こと に 包 を 付け て くだ きい 


1 つ 1 つの 文字 は , 固有 の 意味 を 持っ て いま す . よく 似 た 文字 に 注意 し て , 
正確 に 入力 し て くだ さい . 

と くに 間違い や すい 文字 と し て は , 次 の よう な 文字 が あげ られ ます . 
カン ジマ と ビリ オド 。 
ョ ロジ どく さ ロジ シン 5 
ク ォ デ ーション と グ プ ブルグ ク ォ テ ーション 
数 字 の ゼロ と アル ファ ベッ ト の オー 0 
数 字 の 1 と 英字 小文字 の 1 (エル ) 1 
数 字 の 3 と 数 字 の 8 3 
マイ プス 聞 号 導 アシ グー ライ シ ー _ 
マイ ナス 記号 と カタ カナ の 伸ばす 音 寺 6 


ぅ 


9 る 
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は じ め の 注意 


本 書 で は , 本 文 の プロ グラ ム 入 力 の 説明 に お いて , 空白 (スペ 
ー ス ) を 表す の に (アン ダー ライ ン ) を 使用 し て いま す . この アン ダ 
ー ラ イン の と ころ で は , スペ ー ス キー を 押し て 空白 を 入れ て くだ さ 
い 。 

また , プロ グラ ム 中 , 0 (ゼロ ) と O( オ ー) は 非常 に 間違え や すい 
の て 注意 し て 入力 し て くだ さい . 

シフ トキ ー を 押さ な く て は いけ な い 場 合 , 気 を 付け な いと , 入力 し よう 
と し た 文字 と は 異な っ た 文字 が 入力 され ます の で 注意 し て くだ さい 、. 

長い プロ グラ ム を 入力 する と き は , 1 行 ま た は 数 行 を まとめ て 抜か し て 
いな いか , よく 注意 し まし ょ う . 

本 書 に 掲載 の プロ グラ ム に お いて , 文字 数 の 関係 で 1 行 に 入ら な 
い 行 は , 次 行 の 先頭 へ 出し て 掲載 し て いま す ( と くに , IF や DATA 
文 な ど ). 入力 の 際 は , 必ず 1 行 に 続け て 入力 し て くだ さい . 

また , 1 番 最初 の 全角 文字 の 1 行 は プロ グラ ム の 名 称 で す . 入力 
し な いで くだ さい . 

単語 と 単語 の 間 の スペ ー ス は 重要 で す . 続け て 書か の ず に キチ ン と スペ ー 
ス を あけ まし ょ う . 

※ PRINTA 

〇 PRINT ムーー っ PRINT A 

新しい プロ グラ ム を 入力 する 前 に は , 必ず BASIC 操作 の ファ イル の 新規 を 選 
ん で , 古い プロ グラ ム を 消し て か ら 初 め て くだ さい . 

少し 入力 し た ら , 必ず 保存 し て お きま し ょ う . こう する こと で , 不意 の 停電 
な ど , さま ざま な 場合 に 対処 で きま す . 

プロ グラ ム を 実行 する 前 に , 必ず 保存 し て お きま し ょ う . 無限 ルー プ に 入っ 
た り , 薬 走 し た り し て リセ ッ ト キ ー を 押さ な く て は いけ な く な っ て も , ブロ グ 
ラム は 残り ます . 

実行 し て みて , エラ ー が 出 た ら ,. まず エラ ー が 出 た 行 に 間違い が な いか を よ 
く チ ェ ッ ク し ます . エラ ー の 出 た た 行 に 間違い が な い 場 合 .、 そこ か ら 前 に 間違い 
が ある 確率 が 高い の で , 1 行 ず つ , そし て 1 文字 ずつ 確認 し て いき まし ょ う . 

PC-9801 シ リー ズ の 8 色 モ ー ド し か 使用 で き な い 機種 に つい て は , その まま 
掲載 し て ある プロ グラ ム を 入力 し た の で は 動か な いこ と が あり ます . 11 ペ ー ジ 
の 囲み の 中 , お よび 90 ペ ー ジ の コラ ム を 参考 に し て , 適宜 プロ グラ ム を 変更 し 
で くき WS。 
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EMF421 の 貞 
Qulck BAGIC の 世界 


すばらし い Quick BASIC の 世界 


昔 の BASIC は 構造 化 が で き な い 。 行 番 号 に 依存 する , 速度 が 遅い な ど , 悪 日 
を た くさ ん いわ れ ま し た . で も , Quick BASIC の 出現 で . それ ら の 悪口 は すべ 
て 過去 の も の と な り ま し た . 

いま 一 番 ホ ッ ト な BASIC 言語 . それ が Quick BASIC な の で す . ここ で は , 
まず Quick BASIC の すばらし さ に つい て 見 て いき まし ょ う . 


支 マ イク ロ ソ フト の 大 戦略 


皆さん よく ご 存 知 の よう に , Quick BASIC は マイ 4 笛 メタ ト 社 が 開発 し た 
言語 で す . 0 Quick BASIC の ほか に も , MS- -DOS. IBM 版 の DOS 
で ある PC- DOS., ま 話題 の Windows な ど , 次 々 に 優秀 な ソフ トウ ェ ア を 提供 
に ま MRoGBo の 8 の NObbofPg の 還 間 に 
な いと ころ まで き て いま す . 

マイ クロ ソフ ト 社 の 会 長 は ビル ・ ゲ ー ツ です. 彼 は , 彼 の 作っ た BASIC に よ 
っ て 一 虫 有 名 に な り , マイ クロ ソフ ト 社 を 設立 し た の で す . そし て , BASIC の 
大 好き な 彼 は , 世界 中 の プロ グラ ム を BASIC を 中 心 に し よう と いう 大 戦略 に 
貞 だ の で し た . 

IBM PC 用 の DOS の バー ジョ ン は , アメ リカ で は 5.0 で す . この DOS に は , 
何と , Quick BASIC の サブ セッ ト が 無料 で 付い て いま す . また , この DOS に 
付い て くる エディ タ は , あの "メン ドウ クサ イ "EDLIN な ど で は な く , Quick 
BASIC の エディ タ と まる で 同じ 使い 方 が で きる も の で す . いか に マイ クロ ソ 
フト 社 が , Quick BASIC に カカ を 入れ て いる か が わか り ま す . 
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いま , 時 代 は OuicK BASIC な の だ 


*※ WindOwS っ て 知っ て ます か の 


いま , アメ リカ で は , Windows と 大 きわ ぎ を し て いま す . 

Windows を 使え ば . メ モリ の 640KB の 制限 な ど 関 係 な く , 目 いっ ぱい メモ リ 
が 使え ます. また , メモ リ が 足り な けれ ば 仮想 メモ リ が 使え , 複数 の プロ グラ 
ム を 同時 に 走ら せ て , その 間 を 簡単 に いっ た りき た り で きま す . さら に , Win- 
dows 用 の プロ グラ ム は , パソ コン の 機種 に 関係 な く 走 ら せ ら れる な ど , さわ ぐ 
の も 当然 で す . 

と ころ が , この Windows 用 の プロ グラ ム , 使う 方 は 楽 な の で す が , 書く 方 は 
非常 に 大 変 で し た . そこ で , マイ クロ ソフ ト 社 で は , Visual BASIC を 世に 出 
し た の で ず : 


* VISua1 BASIO 


Visual BASIC は , マイ クロ ソフ ト 社 が Windows 用 プロ グラ ム の 開発 の た 
め に 売り 出し た Quick BASIC に 良く 似 た 言語 で す 。 

Visual BASIC を 使う と 、 だ れ で も 簡単 に Windows 用 の プロ グラ ム が 作れ 
て し まい ます . 

いま まで は ,。 プ ログ ラマ が , C や C 十 十 な ど を 使っ て , も の すご く 長 ぃ プロ 
グラ ム を 書き , か つ そ れ が な か な か 動か ず , 大 変 苦労 を し て いま し た . 

それ に 比べ , この Visual BASIC を 使え る ば, ウソ の よう に 簡単 に . アイ コン 
や メニ ュー を 持つ Windows 用 の プロ グラ ム が 書け て し まい ます . 

Quick BASIC を 知っ て いれ ば , Visual BASIC も 簡単 で す . 


QUICK BASIC は 最高 級 言語 (C じ も 二 二 も 目 じ ゃ な い ) 


昔々 , BASIC は , 構造 化 が で き な い , 速度 が 遅い , 行 番号 に 依存 し て プロ グ 
ラム 部 品 の 再 利用 が で き な い , な ど と 悪口 を た くさ ん いわ れ て いま し た . で も , 
Quick BASIC に な っ て , 上 記 の よう な 欠点 は 克服 され まし た . 

Quick BASIC の 特長 を いく つか 上 げ る と , 

o 構 造 化 が し っ か り で きる . 

O 行 番号 に 依存 し な い . 

Oo サブ ルー チ ナーン, ファ ンク ショ ン な ど が , 単 衝 の 部 品 と し て 再 利 用 で きる . 

統合 化 環 境 が 使え る . 

oO イ ンタ プリ タ の 手軽 さと , コン パイ ラ の 人 性能 の 両方 を 満足 で きる . 
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すばらし い OuicK BASIC の 世界 


o DOS か ら 直 接 実行 で きる 実行 形式 の .EXE ファ イル を 作る こと が で き 
る . 

o 使 用 で きる メモ リ が 飛躍 的 に 増え た . 

な ど が 上 げ ら れ ま す . 

簡単 に いう と , 使い 勝手 が 良く や さ し く 高度 な こと が で き , 性 能 も 良い と 
いう こと に な り ま す . 

いま ,C と いう プロ グラ ム 言 語 が ブー ム で す が , Quick BASIC は , C な ど よ 
り は る か に 進ん だ 最高 級 言語 な の で す . が 

画面 の 操作 , 通信 , 音楽 な ど を 行わ せる の に , Quick BASIC で は 命令 1 語 で 
すむ の に , C な ど ほ か の 言語 で は 何 行 も の 式 を か か な けれ ば な り ま せん . これ 
ら の 式 を あら か じ め 書 いた グラ フィ ッ ク な どの パッ ケー ジ も あり ます が , プロ 
グラ ム の 書き 方 が 各社 ご と に 違っ て いた り , パソ コン ご と に 違っ た り し ます . 
また , 場合 に よっ て は , ある 特定 の 動作 を きせ る た め に は , 特定 の メモ リ 上 の 
番地 を 探し 出し , そこ に 何 か を 書き 込ま な く て は , うま く 目 的 を 達成 で き な い 
こと も あり ます . 

C や C 十 十 は ,。 高級 アッ セン プラ で は あり ます が , 低級 言語 な の で す . 
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を | 士 |.1 は , ご に は わか ら な い 


C や C 十 十 で は , ある 式 を 使う とき, その 式 は 変数 の 型 に 依存 し ます . つま 
り , 同じ A 十 B と いう 式 で も , 1 十 1 と 1.0 十 1.0 で は , まる で 別 の 式 な の で 
す . C で は , あま り に 面倒 どっ た の で , C 十 十 で は , ある 宣言 を する と 同じ A 十 
B と いう 式 を , 1 十 1 と 1.0 十 1.0 ど ちら で も 使え る よう に し まし た . それ で も 
最初 に いち いち 宣言 し な いと エラ ー が 出 ま すし , まし て , 1 十 1.0 な ど と いう こ 
と は で きま せん . 

Quick BASIC で は , 1 十 1.23 な ど と や っ て も , パパ ソコ ン が 整数 1 は 実数 で は 
1.0 だ か ら , これ は 2.23 だ な と , し っ か り 計 算 し て くれ ます . 

C や C 圭 十 な ど よ り , は る か に 進ん で いる と 思い ませ ん か 7? 


* QuickK BASIO の 咽 液 型 は 何 型 か 


「 エ ッ ノ / プロ グラ ム に 血液 型 が ある の か ? 」 で すっ て ? 

それ が ある の で す . 

血液 型 に は , 普通 ,. 人 間 の 場合 A、 B, AB, O と あり ます が , この うち 一 番 
有利 な の は AB 型 で す . な ぜ か と いう と , いざ と な れ ば どの 血液 型 か ら で も 輸 
血 し て も ら え る か ら で す . 

ズバ リ , Quick BASIC の 血液 型 は , AB 型 な の で す . 


Quick BASIC の 
血液 型 は ? 
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そし て , C も PASCAL も , みん な Quick BASIC の 子 分 で す . 

マイ クロ ソフ ト 社 の 言語 は , お 互い に 相互 利用 が 可能 で す . つま り , ある や 
り 方 を する と , BASIC か ら C や PASCAL, FORTRAN, マシ ン 語 な を どの ルー 
チー ン が 使え ます . また , この 逆 も 可能 で す . 

た だ し , BASIC 特有 の グラ フィ ッ ク や サウ ンド な ど , BASIC で 一 番 使い や 
すい 命令 は 他 の 言語 で は 使え な い の で す . 

BASIC で 一 番 の 特徴 は 、 グラ フィ ッ ク や サウ ンド な どの 入出 力 の 命令 が 簡 
単に 一 語 の 命令 で 書け る と ころ に あり ます . そこ で , 一 番 有利 な 方 法 は , プロ 
グラ ム の 主 な 部 分 を Quick BASIC で 書い て お き , 細か い メ モリ 操作 , 高速 性 

な どの 理由 で , どう し て も 他 の 言語 を 使う 必要 の ある 部 分 だ け を 他 の 言語 で 作 
っ た り , 借り た り し て くる 方 法 で す . 


この よう に , これ か ら プ ログ ラミ ング 言語 の 中 で Quick BASIC は , その 使 
い 勝 手 の 良さ , 構造 化 、 他 言語 へ の 対応 , そし て , 簡単 に 他 の 種類 の コン ビュ 
ー タ に 移植 で きる こと な ど , 時 代 の 主流 を 歩む の は 間違い あり ませ ん . 

いま や CC 言語 で は 時 代 遅 れ な の で す . 


文 マク ロロ っ て 知っ て ます か "?p 


「 エ ー ト , 基 ニ ッ ク キ ヤツ の 根性 の こと で は …」 
[エッ , 違い ます . それ っ て , 真っ 黒 の こと で は ? 」 


マク ロ と いう の は , プロ グラ ム を 便利 に 使う た め に 書く 短い プロ グラ ム の こ 
と と で も 思っ て くだ さい . ワー プロ ソフ ト か ら 表 計算 ソフ ト ま で , 市 販 の ソフ 
トウ ェ ア は よく で き て いる の で す が , どう し て も 1 人 1 人 の 好み に 完璧 に 合う 
よう に は 作れ ませ ん . また , 場合 に よっ て は , 同じ よう に 決ま りき っ た こと を 
毎回 や ら ね ば な ら ず , それ を , いつ も いつ も キー ボー ド か ら 入 力 し て いた の で 
は と て も 大 変 な 場合 が あり ます . 

そこ で , そう いう 場合 に 大 活躍 する の が マク ロ 言 語 で す . マク ロ 言 語 で プロ 
グラ ム を 書い て お く と , ワー プロ で も 表 計 算 ソ フト で も , “あな た 好み に 変身 " 
し て くれ ます . お まけ に ソフ トウ ェ ア に よっ て は , 決ま りき っ た 処理 は マク ロ 
プロ グラ ム を 書く こと で 自動 的 に や っ て くれ ます . 本 当 に と っ て も 便利 な の で 
す . 
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と ころ が , この マク ロ 言 語 に は 1 つ だ け 大 き な 欠 点 が ある の で す . いま まで 
の ほとん どの ソフ トウ ェ ア に 付い て くる マク ロ 言 語 は , 凛と か # と か 記号 の 名 列 
な の で す . さら に も っ と 悪い こと に は , こっ ちの エディ タ と こっ ちの 表 計 算 ソ 
フト , また , あちら の ワー プロ と , お 互い に 好き か っ て に マク ロ 言 語 を 作っ た 
た め , まる っ きり 文法 が 違い ます . これ で は いか に 便利 な マク ロ で も 困っ て し 
まい ます . そこ で , マイ クロ ソフ ト 社 で は , 自社 で 作る きま ざ まな ソフ トウ ェ 
ア の マク ロ 言 語 を Quick BASIC に 似 た 新しい マク ロ 言 語 に 置き 換え て いま す . 

マイ クロ ソフ ト 社 か ら Microsoft Word と いう 日 英 両 用 の ワー プロ ソフ ト が 
発売 され まし た . これ は , 次 世代 の ワー プロ と し て 注目 され て いる ワー プロ ソ 
フト で す が , これ に は Word BASIC と いう 新しい マク ロ 言 語 が 付い て きま す . 
これ を 使え ば. ワー プロ ソフ ト の プロ グラ ム 本 体 を 修正 し な く て も , まる で 本 
体 を 修正 し た か の よう に 高度 な こと が スラ スラ で き て し まい ます . 自分 好み に 
機能 が 拡張 で きる と いう の は 楽 チ ン で す ネ . 

この Word BASIC は , 名 前 の と お り Quick BASIC に と っ て も 良く 似 て いま 
す . いま まで の 記号 ば っ か り の マク ロ 言 語 と は 大 違い で す 。 同社 で は , これ か 
ら ほ と ん どの プロ グラ ム の マク ロ 言 語 を BASIC に 似 た 同じ よう な マク ロ に し 
て いく こと を 定 言 し て いま す . これ に よっ て , マク ロ を 覚え る の が と っ て も 簡 
単に な り ま す . また , ワー プロ の マク ロ で 覚え た こと と ほとん ど 同 じ 感 覚 で 表 
計算 ソフ ト の マク ロ が 書け ます . これ ら の マク ロ 言 語 す べ て の 基本 と な っ て い 

言語 が Quick BASIC な の で す , 『Quick BASIC を 制す る も の は プロ グラ ム 
を 制す る ] と いっ て も 過言 で は あり ませ ん . 

マク ロ 言 語 の こと を 考え た だ け で も , Quick BASIC は 習っ て お いて 損 に は 
な り ま せん . 
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ゲー ム を 作っ て 
友達 を つっ なら そう 


* ゲ ー ム を 通し て プロ グラ ム を 覚え よう 


いま , 町 に は スー パー ファ ミコ ン か ら PC-9801 ま で , いろ いろ な パソ コン や 
ゲー ム が あり ます . 

で も , ゲー ム を や りな が ら , ここ を こう 直し た いと か , こう いう ゲー ム を 作 
り た いと 思っ た こと は あり ませ ん か ? 

自分 で オリ ジ ナ ル の ゲー ム を 作っ て , 友達 か ら 「 ス ゲ ェ ー, どう や っ て 作っ 
た ん だ 」 と , 和 区 き と 尊敬 の まな ざし で 見 られ た ら , 最高 に カッ コイ イ と 思い ま 
せん か ? 

この 本 を 読み な が ら 実 際 に パソ コン を 使っ て 行く と ,. ゲー ム を 作り な が ら , 
プロ グラ ム の や り 方 や ゲー ム に 必要 な さま ざま な 『 デ クニ ッ ク 閣 索 ル 3 学び 取れ , 
知ら ず 知 ら ず の うち に プロ グラ ム が 作れ る よう に な り ま す . 


* ゲ ー ム を 教え て , お 父さん の 株 は スト ッ プ 高 

子供 達 に と っ て , お 父さん は いつ で も ヒー ロー で す . 

その お 父さん が 。 子供 達 の 大 好き な ゲー ム を 作っ た と し た ら , まし て , その 
中 で 自分 が 作っ て 名 前 を 付け た キャ ラク タ が 動き 回 っ た と し た ら , 子供 達 に と 
っ て , お 父さん が スー パー ヒー ロー に な る の は 間違い あり ませ ん . 

家族 そろ っ て パソ コン を 前 に , 「 今 度 は ここ を 直 そ う よ 」 と か , 「 こ の 方 が お 
も しろい よ 」 と 話 を し て いる な ら , 親子 の 断絶 な ん て , 絶対 に あり えな いで し 
尼 秘 。 

を 小学 生 で も ゲー ム が 作れ た 


筆者 の 家 に も , 小学 生 の 子供 が 2 人 いま す . 彼ら に と っ て は パソ コン は 難し 
い 機 械 で も な けれ ば , 命令 を 覚 を な く て は な ら な い 機 械 で も あり ませ ん . そう 
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ゲー ム を 作 つ て 友達 を うな ら そ う 


で す . パソ コン は お 友達 な の で す . また , 自分 達 の や り た いこ と が いろ いろ で 
きる 夢 の 箱 な の で す . 

最初 の うち は , ファ ミコ ン に , それ に あき る と PC-9801 な どの パソ コン の ゲ 
ー ム で 一 生 懸 命 遊 ん で いた 子供 達 で し た が , その うち ,「 お 父さん , 僕達 に も ゲ 
ー ム の 作り 方 を 教え て よ 」 と いっ て きま し た . 「 い いよ 」 と いっ て , 最初 は , い 
わ め ゆる 入門 書 ど お り に 教え 始め た の で す が , これ は 大 失敗 で し た . な ん せ 型 ど 
お り の 命令 PRINT な どか ら で は , お も し ろく も な ん と も あり ませ ん . そこ で 
方 針 を 大 転換 . まず 楽し き を 中 心 に , 動き と 音 か ら 始め た ら , 今度 は 大 正解 . 
あっ と いう 間 に プ ログ ラム を 覚え て し まい まし た . 

本 書 の 中 の プロ グラ ム の 一 部 は , 実は 彼ら が 作っ た も の な の で す . いま で は , 
市 販 の ゲー ム で 遊ぶ より , 自分 達 の プロ グラ ム を いじ っ て いる 方 が 楽し そう で 
す . 


* ゲ ー ム を 売っ て 億 万 長者 


自分 が 作っ た ゲー ム が 完成 する と , 友達 に や ら せ て 見 た く な り ま す . 人 に よ 
っ て , いろ いろ な 意見 が ある と 思い ます が , そこ は し っ か り 聞 いて , どん どん 
本 所 し まし ょ 9 

ゲー ム の レベ ル が 上 が っ て , いい も の が で きた と 思っ た ら , ぜひ ゲー ム を 売 
り に 行き まし ょ う . あの "ロードランナー" を 始め , さま ざま な ゲー ム が , この 
方 法 で 出 き まし た . プロ グラ マ の 中 村 光 一 氏 も , 最初 は ゲー ム “ ド アド ア " を 作 
っ て , 高校 生 の 時 に 2000 万 円 以上 ( ? ) も も うけ て し まっ た そう で す . その 後 , 
“チュ ン ソ フト "と いう 会 社 を 作り 。 な ん と あの "ドラ クエ シリ ー ズ "の ソフ トウ 
ェ ア な ど を 作っ て いま す . いま や , その プロ グラ ム の 著作 権 料 は , 1 つの シリ 
ー ズ ご と に 数 億 円 ( ? ) だ そう で す . そし て , 若く し て 押し も 押さ きれ も し な い 大 
社長 と な り ま し た . 

マシ ン 語 で な く て は 売れ る よう な プロ グラ ム を 作れ な いと 思っ た ら 大 間違い 
で す . ゲー ム “ 倉 庫 番 " は BASIC で 書か れ て いま す . それ も デー タ 以 外 の 本 体 
の プロ グラ ム は , 「 こ ん な に 短い の ? 』 と いう ぐら い の 長 さ で す . で も , この ゲ 
ー ム は , 他 の ゲー ム と 一 味 直っ て いて , や り 出 す と 夢中 に な っ て し まい ます . 
ちな み に , この ゲー ム を 作っ た 人 も , 脱サラ し て 頑張 っ て いま す . 

“テト リス "も "上海 "も ルー ル は も の すご く 単 純 で す . それ で いて 人 を 熱く さ 
せる も の が あり ます . 
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ゲー ム で 大 事 な の は , アイ デア と コン セプト で す . あの シミ ュ レ ーション ・ 
ウォ ー ゲ ー ム と し て すご く 有 名 な “大 戦略 "も , 会 社 に 売り 込ま れ た と き は , す 
べ て BASIC で 書か れん て いた そう で す . いい ゲー ム で , キチ ン と 書い て さえ あれ 
ば , 速度 に 関し て は 専門 に 直し て くれ る 人 達 が いま す . この 人 達 の 手 に か か れ 
ば , 超 高 速 に し た い 部 分 が 次 々 に マシ ン 語 に 変わ っ て し まい ます . 

さあ , あな た も この 本 で いろ いろ 覚え て 。 ぜ ひ ス ー パ ー ゲ ー ム を 作り まし ょ 
う . スー パー ゲー ム が で きた ら , ぜひ 第 2, 第 3 の 「 若 い 大 社長 ] に な っ て , 億 
万 長者 に な り ま し ょ う . 


プロ グラ ム ま だ 作れ な いん で すか 


れ な いん で すか や 


パソ コン の 性能 は , 日 進 月 歩 で 進化 し て いま す . いま の パソ コン の 最高 級 機 
種 の 性 能 は , 一 茸 前 の 大 型 コ ンピュータ を は る か に し の いで いる の で す . 

一 方 . プ ログ ラム の 方 も , 同じ よう に 進歩 し て いま す . いま 一 番 最初 の ころ 
の 表 計 算 ソ フト や , ゲー ム ソ フ ト を 見 る と , よく これ で 売れ て いた も の だ と 感 
心して し まい ます . で も , それ ら の ソフ トウ ェ ア も , 当時 と し て は 画 期 的 な も 
の だ っ だ の で ず 。 


* プ ログ ラム , あな た 作る 人 , 私 使う 人 


これ か ら の 世の中 は , ソフ トウ ェ ア の 進化 と と も に , ソフ トウ ェ ア を 作る 人 
と 使う 和 人 に, は っ きり と 別れ て 行く こと で し ょ う . 

この まま で は , ご く 一 部 の 人 達 が ソフ トウ ェ ア を 作り , ほとん どの 人 は , た 
だ その ソフ トウ ェ ア を 買っ て 使う だ け と いう こと に な りか ね ませ ん . 

実は . これ は と ん で も な いこ と な の で す . 苦 , 基 電 話 会 社 が , コン ピュ ー タ 
を 導入 し た と た ん , 月 間 数 百 万 円 と (いう と ん で も な い 電 話 代 を 請求 され た 人 が 
いた そう で す . 電話 会 社 に 文句 を いい に いく と , 最初 は 「 こ れ は コン ピュ ー タ 
が 計算 し た の だ か ら , 絶対 に 間違い は ご ざい ませ ん 」 と , 相手 に し て も ら え な 
か っ た と か …. 

プロ グラ ム を 自分 で 作っ た こと の な い 人 な ら 引 き 下 が る し か あり ませ ん が , 
チョ ッ ト で も や っ た こと が あれ ば ,「 こ れ は 入力 ミス か , プロ グラ ム の バグ の せ 
いで は な い の で すか ? 入力 チェ ッ ク の ルー チー ン は どう や っ て いる の で す 
か ? 」 な ど と , 相手 を 問い 詰め る こと も で きる で し ょ う . 
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『 コ ンピュータ の 
計算 て すか ら 間 違い 
どき いま 司 ん 」 


MDD 


| | 電話 代 請 氷 書 


を プログ ラム が 作れ な いと , 時 代 に 取り 残さ れ ま す 


これ か ら の 時 代 , コン ピュ ー タ は 必須 科目 で す . 

少し で も 自分 で プロ グラ ム の 経験 が あれ ば , コン ピュ ー タ の いろ いろ な 特性 
が 見 えて きま す . 時 代 に 取り 残さ れず ,。 コン ピュ ー タ パワ ー エ リー ト に な る た 
め に も , ぜひ , プロ グラ ム を 勉 強し まし ょ う . 


* 秘 密 が わか れ ば 簡単 だ い / 


コン ピュ ー タ の プロ グラ ム と いう と , と て も 難し そう で す が , 実は そん な こ 
と は まっ た くく ありません. だ れ か に 「 窓 を 開け て くだ さい 」 と 頼む の と 同じ で , 
命令 語 と , それ に 対応 する 数 字 ( デ ー タ ) さえ 書い て や れ ば いい の で す . 

そう で す , 実は 秘密 さき を わか れ ば , プロ グラ ム な ん て と っ て も 簡単 な も の な 
の で す 。 
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関 部 な こ を 楽し く 学 は う / 


Ouick BASIC の コマ ンド や 関数 な ど を 楽し く 学 ぼう / 


BASIC EN ら ヒ E ら AMI/ 


世の中 , な に か を 始め る に 当たっ て は , いろ いろ と 儀式 や 呪文 が 必要 な こと 
が た くさ ん あり ます . さしずめ , 一 番 有 名 な の が “アリ ババ と 40 人 の 盗賊 "に 出 
て くる 「『 開 け プ マ 〕」 で し ょ う . と ころ で , この 「 開 け ゴ マ 」 英語 で いう と , や 
っ ぱり [OPEN SESAMII な の で す (SESAMI は ゴマ で す ). あの テレ ビ 番 組 
の “セサミ スト リー ト " の セサミ も この 言葉 が 元 な の だ そう です. 

で は , Quick BASIC の 世界 を 開く た め に , 皆 で 『OPEN SESAMI /』」 


32 ペ ー ジ の プロ グラ ム の 最初 の 3 行 を 見 て くだ さい . な に や ら 見 な れ な い 単 
語 と 数 字 が 並ん で いま す が , この 単語 と 数 字 が Quick BASIC の 世界 で , 絵 を 
扱う た め の 呪 文 な の で す . と りあ え ず は , 別に 深い 意味 は 考え ず , 絵 を 扱う と 
き は この 3 行 と 同じ 文 を プロ グラ ム の 最初 に 書く と いう こと だ け を 覚え て お い 
で でき Wss 

次 の 部 分 は 興味 の ある 方 だ けど うそ ぞ . 
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開け ゴマ , OPEN SESAMI/ 


ン 、| と は いっ て も , 知ら な いで 使う の は 気持 ち が 悪 いと いう あな た の 
た め に , ひと と お り 説 明 し て お きま し ょ う . 

まず 最初 の 行 の SCREEN 88, 3, 1. 1 で す が , ま ず 最 初 の 数 字 
88 は , 横 640 ド ッ ト , 縦 400 ド ッ ト の 画面 に , 絵 と 文字 を 書く と いう こと を 
パソコン に 教え て いま す . VGCA シリ ー ズ な ど 他 の ドッ ト 数 の 画面 で は , こ 
の 数 字 が 変わ り ま す . 次 の 3 は, 使え る 色 数 を 決め て いま す . 


0 8 色 
1 16 色 
2 64 色 中 16 色 


3 4096 色 中 16 色 
と な り ま す . た だ し , 実際 に 使 を る 色 は , ここ で 指定 する 数 字 だ け で な く , 
パソ コン と ディ スプ レイ の 性能 に より 異な り ま す (90 ペ ー ジ の コラ ム 参 照 ). 
この 番号 : を 0 に し た 場合 。 8 色 モ ー ド に な り ま す . 

8 色 モ ー ド は , PC-9801E, F, M, VM 2 , VF 2, UV, VM21, VX 
2 , VX21, RX。 RA, DA… と , すべ て の 98 シ リー ズ で 使え ます . 

番号 1 2. 3 は , VX21. RX, RA、 DA など の ホビ ログ の ディズ デレ イ 区 
対応 し た 機種 の う ち 、ROM BIOS で 16 色 出せ る 機種 用 で す . 
8 8 色 対 応 の 機種 を 使っ て いる 人 は , SCREEN 88.0,. と し て く 
だ さい 、. 


PC-9801 は , 絵 を か く 面 を 2 面 持 っ て いま す . 通常 , この 面 の 一 方 を 0, 他方 
を 1 と し て 指定 し ます . 

後ろ か ら 2 番目 の 数 字 の 1 は , アク ティ ブ ベ ペー ジ と いい , どの 画面 に 絵 を か 
く か を 示し て いま す . 

最後 の 1 は , ビジ ュ ア ル ペ ー ジ と いい , 実際 に 目 に 見 える 画面 を . どちら に 
する か を 決め て いま す . 

これ を 上 手 に 使う と , 0 面 を 表示 し て いる 間 に 1 面 に 絵 を か いて お き , かき 終 
わっ た ら 1 面 を 表示 する と いう よう に , 絵 を か く と ころ を 見 せ ず に , 画面 を 変 
える こと が で きま す , この テク ニッ ク は , アニ メー ション, ゲー ム な ど 。 いろ 
いろ な 場面 で 使わ れ て いま す . 
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パソ コン の 性 能 に 併せ て , 色 の 数 に 対応 する 数 字 を 変え て くだ さ 
い . 

次 に 2 行 目 の WINDOW SCREEN 文 で す が , ここ で は , 画面 を 
左上 が 0, 0 右 下 が 639, 399 の 番号 を 付け た 640X400 の 点 ( ド ッ ト ) で 表す 
画面 に し て 絵 を か きま す よ と いう こと を パソ コン に 宣言 し て いま す . この 
や り 方 の 方 が , 点 の 付け 方 が いま まで の N。。-BASIC と 同じ な の で , わか 
りや すい と 思い ます . 

左下 が 0, 0 で , 右上 が 639, 399 の 方 が 都合 が いい と き は , SCREEN の 
文字 を 抜か し て くだ さい . 

次 に 。 3 行 目 の CLS で す が , これ は , それ まで に 画面 に 描か れ て い 
る も の を 消し て し まう と いう 意味 を 持っ て いま す . CLS の あと に 何 が 付く 
か に よっ て , 次 の よう な 違い が あり ます . 


CrS すべ て の 文字 と 絵 を 消す . 
Crs 0 すべ て の 文字 と 絵 を 消す . 
9 人 き 1 文字 は 残し て 絵 だ け を 消す . 
CLS 2 文字 だ け を 消す . 


ニュ ー ヨ ー ク jj 辺 良 す 3 月 
ロン ドン 還 中 治 4 | 


点取り 虫 , 点 付 け 虫 


。 点 付 け 虫 や 


な ん と 暫 き の 悪い 言葉 で し ょ う . 実社会 で の この 言葉 , 


“点取り 虫 " オ ーッ ノ 
どう 見 て も あま り 好 か れ て いる 言葉 で は あり ませ ん . 実は , Quick BASIC の 世 


界 に も , この 点取り 虫 な ら ぬ “ 点 付 け 虫 "が 住ん で いる の で す . で は , この “ 点 付 


け 虫 "を 探し に 行き まし ょ う . 


)) % 
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次 の プロ グラ ム を 入力 し た あと , シフ トキ ー を 押し な が ら f・5 キー を 押し 
て 実行 し て みて くだ さい . 


PSET. BAS プ ログ ラム 
SCREEN 88, 3, 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 


CLS 
PSET (320, 200), 4 
END 


な に も 変わ ら な いで すっ て ? そん な こと は あり ませ ん . 画面 の 中 央 を よー 
く 見 て くだ さい . な に や ら 小 さ な 点 が 光っ て いま せん か ? これ が 画面 に 点 を 
光ら せる 命令 PSE 二 の 使い 方 な の で す . ほ ー ら , プロ グラ ム っ て 簡単 で し ょ う . 
も う あ な た も プロ グラ マー の 仲間 で す . 


PSET ( 横 方 向 の 位置 , 縦 方 向 の 位置 )、 色 


PSET の あと の 数 字 は , 横 方 向 の 位置 や 縦 方 向 の 位置 , それ に 色 な どの 意味 
を 持ち ます . PC-9801 で は , 横 方 向 は 0 か ら 639, 縦 方 向 は 0 か ら 399 の 値 を 持つ 
数 字 . また は 式 を 入れ て くだ さい . 色 は , あと で 説明 する パレ ッ ト と いう も の 
が あり , どの パレ ッ ト の 色 を 塗る か を 決め て いま す . と りあ え ず 色 に は 0 か ら 
15 ま で の 数 字 を 入れ て くだ さい . 

な に か キー を 押す と , エディ ッ ト 画 面 に ちどり ます . 

今度 は , PSET の 文 の あと に 書か れ て いる 数 字 を いろ いろ 変え て 実行 し て み 
て くだ さい . どん な ふう に な り ま し た か ? 
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ーー 線 を か ひこ すぐ (LINE) 


か くす の (LINE) 


人 間 は , 線 を 引く の が 大 好き で す . 大 は 国境 線 か ら , 小 は 隣 の 家 と の 境界 線 
まで , な に も な いと ころ に 勝手 に 線 を 仮想 し ます . あげ く の 果 て は , その 仮想 
の 線 の た め に 戦争 を 起こ し , た くさ ん の 人 が 死ん だ り , 土地 争い を 起こ し て 『「 殺 
人 だ 」,「 裁 判 だ 】』 と, バカ ( ? ) な こと を や っ て いま す . オー ッ コ ワ / 

ここ で は , そん な 基 ろ し い 線 で は な く , も っ と 楽し く ハ ッ ピ ー な 線 の 引き 方 


次 の プロ グラ ム を 入力 し て 保存 し た 後 , 実行 し て みて くだ さい . 
L INE. BAS プ ログ ラム 


SCREEN 886。 , 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 


CLS 
LINE (100, 200)-(300, 200), 5 
END 
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LINE (開始 点 の 横 方 向 の 位置 , 開始 点 の 縦 方 向 の 位置 ) 一 (終点 の 横 方 
向 の 位置 , 終 点 の 縦 方 向 の 位置 ), 色 


LINE 命 令 の あと の 数 字 は , 上 に 書か れ て いる よう な 意味 を 持ち ます . この 数 
字 を いろ いろ と 変え て 試し て みて くだ さい . 
100, 200 300, 200 


100, 350 300, 350 


ここ で , 上 の 図 の よう な 四角 形 を か く プ ログ ラム を 考え て くだ さい . どう い 
う プ ログ ラム に な り ま し た か 7? 次 に 1 つの 見 本 を 示し て お きま す . 形 き えき 
ちん と し て いれ ば , 別に どの 線 を 先 に か く か は あな た の 自由 で す . 


LINEBOXA. BAS プ ログ ラム 
SCREEN 88。 1, 1 

WINDOW SCREEN (0, 0)-(639, 399) 
CIS 


LINE (100, 200)-(300, 200), 
LINE (300, 200)-(300, 350), 
LINE (300, 350)-(100, 350), 
LINE (100, 350)-(100, 200), 
END 
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あな だ は ゴ 能 が あり ます 


Hr は 才能 が あり ます 


前 ペー ジ の プロ グラ ム で , 同じ よう な こと を 4 回 も か く の は 面倒 くさ いと 思 
っ た あな た , あな た に は 才能 が あり ます . そもそも 人 間 の 作っ た 道具 の ほとん 
ど が , も っ と 楽 を し た いと か , も っ と 良い 暮らし が し た いと いう 欲求 か ら で き 
た も の な の で す . コン ピュ ー タ だ っ て , 面倒 な 計算 は 機械 に 押し 付け よう と し 
て , 考え られ た も の な の で すか ら …. 


次 の プロ グラ ム を 入力 し て 実行 し て みて くだ さい . 


LINEBOXB. BAS プ ログ ラム 
SCREEN 88。 , 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 


CLS 
LINE (100, 200)-(300, 350), 5, B 
END 


先程 の LINE 文 と 。 ほ ん の 少し し か 違わ な い の に , 1 行 で 箱 が か け て し まい 
まじ だ な 。 
LINE (100, 200)-(300, 380), 5. B 
上 記 の よう に , 色 の あと に , B を 付け る と , 上 記 2 点 を 対角線 と し た 箱 を か い 
で 光 ます . 
(100, 200) 


(500, 350) 
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Ouick BASIC の コマ ンド や 関数 な ど を 楽し く 学 ぼ う / 


ここ で B の 代わ り に BF と し て 入力 し 直し , 実行 し て みて くだ さい 。 
B の 代わ り に BF と 入力 する と , 線 だ け で 四角 を か く 代 わり に , 線 の 中 を 同 
じ 色 で 塗り つぶ し て くれ ます . 


LINESTYL. BAS プ ログ ラム 
SCREEN 88。, 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 


CLS 
LINE (100, 200)-(300, 350), 5, B, &H1010 
END 


で は , 上 の プロ グラ ム を 入力 し て 実行 し て くだ さい . これ に は , 先程 保存 し 
て お いた プロ グラ ム LINEBOX.BAS を 呼び 出し て 修正 し て 使い まし ょ う . 一 
番 最初 の プロ グラ ム と ほとん ど 同 じ で す . 違う と ころ は B の あと に , &H1010 
な ど と いう 記号 が 付い て いる と ころ で す . 

この プロ グラ ム を 実行 する と , 線 が 点線 に な っ て 四角 が か か れ ま す . 

&H は , その あと に 来る 数 が 16 進 数 だ と いう こと を 示し て いま す . その あと の 
数 字 は , 0 から F まで の 値 の どれ か を 4 個 書 きま す . そし て , &HFFFF に する 
と , 普通 の 直線 に な っ て し まい ます . 他 の 数 字 に 替え る と , その 数 字 に 対応 し 
た 線 に な り ま す . いろ いろ な 数 字 に 替え て 試し て みて くだ さい . 


| 
| 
| 
ト 


16 進 数 の 数 学 ほ 0。 1 2。 3。 4: 5. 6, 7 8 9 5 
ペン | B, C, D, E, F の 16 種 類 の 文字 で 表し ます . 


四角 を 点線 で か いた 場合 ,」 BF で 中 を 塗り つぶ すこ と は で きま せ 
ペイ ント 
ん . また , 点線 で か いた 四角 の 中 を あと で PAINT 命 令 で 色 を 塗る 
と , 画面 全体 に 色 が は み 出 て し まい ます . 御用 心 / 御用 心 / 


の ダグ ぁ 
如 が あ 有 
出 ちゃ 。 た -。/ 
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ベン キ 屋 さん (PALETTE PAINT) 


PAINT 


サン フラ ン シ ス コ の 街 を 歩い て いる と , よく ビル の 壁 に いろ いろ な 絵 が か い 
て あり ます . 普通 , シス コ の 建物 は 隣 と ピッ タリ くっ つい て 建て られ る の で す 
が , た また ま 隣 が 空地 だ っ た りす る と , その 面 一 面 を キャ ン パ ス に し て し まっ 
て いま す . 絵 は , ビー トル ズ か ら 風 景 画 まで , も うこ れ は 完全 な アー ト で す . 


Quick BASIC の コマ ンド や 関数 な ど を 楽し ぐ 学 ぼう / 


私 達 の プロ グラ ム も , た だ 線 を か いて いる だ け で は つま り ま せん . ぜひ 色 を 
塗っ て や る こと に し まし ょ う . 
BASIC で は 。 色 を 塗る の に パレ ッ ト と いう 概念 を 使っ て いま す . これ は , ま 
ず 各 パレ ッ ト の 色 を 決め ます . 次 に 色 を 塗る と き に , どの パレ ッ ト の 色 を 塗る 
か と いう こと を 決め て 行き ます . 


PALETTE1 1 


し | 還 較 


1 


直接 色 を 塗れ ば 良い の に 何で こん な 面倒 な こと を する か と いう と , それ に は 
ワケ が あり ます . 

並 通 の 絵 を か く の と 違っ て , パソ コン の 絵 に は , お も し ろ い 特性 が あり ます . 
つま り , 絵 を か いて し まっ た あと に パレ ッ ト の 色 を 変え る と , それ まで か か れ 
て いた 絵 の 色 も 変わ っ て し まう と いう 特性 で す . 

この 特性 は 。 ゲーム や CG( コ ンピュータ グラ フィ ックス ) で 長所 を は っ き し 
ます . ゲー ム で 夜 の シー ン に な る と , 周り の 色 が 暗い 色 に な る も の が あり ます . 
こう いう と き に , な に も 1 つ 1 つ の 絵 を 全部 塗り 替え る 必要 が な く な り ま す . 
た と えば , 単に パレ ッ ト の 人 色 を 暗い 色 に 変え た れ ば 良い だ け に な り , プロ グラ ム 
が と て も 簡単 に な る と 同時 に , メモ リ も 大 幅 に 節約 で きま す . も ちろ ん , CG で 
服 の 色 を 替え る の も 簡単 で す . 

パレ ッ ト の 色 を 替え る 命令 PALETTE の 使い 方 は , 次 の と お り で す . 


PATNT (100,_100) ,_1,_1 


PALETTE パレ ッ ト の 番号 , 色 
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ベン キ 屋 さん (PALETTE, PAINT) 


通常 。 16 色 中 16 色 モー ド で は , 何 も 指定 し な けれ ば パレ ッ ト 番 号 と 色 番号 は 


一 致し て いま す . 
PC-9801VX21, RX, 0 4096 色 の 中 か ら 16 色 を 選 
ん で , 各 パ レッ ト に 割り 当て る こと が で きま す . この 場合 , SCREEN 文 の 最初 


で , SCREEN 88,3 と し て くだ さい . 
各 パ レッ ト に 色 を 割り 当て る と き に は , 色 番 号 は 0 4095 ま で の 色 を 選ん で 
くだ さい . この 数 字 は 次 の 式 で 決め ます . 
色 番号 三 赤 の 明る さ メ 256 十 緑 の 明 る さ X16 十 青 の 明 る さ 
赤 。 緑青 の 明る さ は , 0 か ら 15 ま で の 数 字 を 取る こと が で きま す . 


色 の 違い 
PC -9801,。 8801 シ リー ズ に 使わ れ て いる N88- BASIC と Quick 


BASIC の 違い の 1 つ に , 色 の 違い が あり ます . 各 パ レッ ト に 対応 する 色 
は , 次 の よう に な っ て いま す . 


0123456 7 8 9101112131415 
N88-BASIC 黒 青 赤 紫 緑 水 黄 自 灰 き 光 弥 引当 監事 
Quick BASIC 黒 青 緑 水 赤 紫 黄 白 灰 あ 牙 不 弥 克 牙 引 


N88-BASIC の プロ グラ ム を Quick BASIC で 実行 し 、 色 が 問題 と な 
る 場合 色 が 一 緒 に な る よう に , 以下 の プロ グラ ム を 最初 の 方 に 入れ て 
くだ さい . 

IROCHNG. BAS プ ログ ラム 
SCRERN 88, 1, 1, 1 
FORI=07015 
PALETTE I, 1 
NEXTI 
PALETTE 2, 4 
PALETTE 3, 5 
PALETTBE 4, 2 
PALETTE 5, 3 
PALETTE 10, 12 
PALETTE 11, 13 
PALETTE 12, 10 
PALETTE 13, 11 


この プロ グラ ム は 16 色 中 16 色 の モー ド 対 応 で す (90 ペ ー ジ の コラ ム 参 照 ). 


Ouick BASIC の コマ ンド や 関数 な ど を 楽し く ぐ 学 ぼう / 


色 を 直接 塗る 命令 PAINT の 使い 方 は , 次 の と お り で す . 
PAINT ( 横 方 向 の 座標 , 縦 方 向 の 座標 )) パレ ッ ト の 番号 , 境界 線 の 色 
で は , さっ そく 湊 の プロ グラ ム を 入力 , 保存 , 実行 し て み ま し ょ う . 


PAINT. BAS プ ログ ラム 
SCREEN 88, 3, 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 


CLS 

LINE (100, 200)-(300, 350), 5, B 
PAINT (150, 250), 3, 5 

END 


どう で す . きれ い に 塗 れ ま し た か ? 
で は 今度 は , 同じ 四角 を 青色 に 塗っ て みて くだ さい . 


_。。。 ニ ニニ PAINT 命令 を 使う と き に , と くに 注意 し な けれ ば いけ な い の は , 
周り の 境界 線 に 切れ 目 が な いよ うに する こと で す . 少し で も 切れ 目 
が ある と 。 そこ か ら 色 が 外 に 流れ 出し , 画面 全部 が その 色 に な っ て 
も 記 M ま 9。 
と くに 下 の イ ラス ト の よう に , 2 つの 線 の つぎ 目 の と ころ が し っ か りつ な が 
っ て いる か 。 お よび か いた 線 を 他 の 色 の 部 分 が 切っ て すき 間 が あい て いな いか 
に 注意 し まし ょ う . 
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世の中 四角 より 丸 が いい や (CIRCLE) 


角 よ り 旭 が いい の 
(CIRCLE) 


普 か ら , 丸い の は 美徳 と 申し まし て , 「 人 間 年 相応 に 丸く て な ら な く て は 」 な ど 
と いわ れ ま す . 日 本 で は , と くに 人 格 が 丸い こと を 重視 し ます . そう いえ ば ぱ ば, 
お 金 の 数 え 方 も 日 本 で は 円 と 丸 の 意味 で す . 私 は 同じ 丸 で も この 円 の 方 が 大 好 
き で す . エッ , あな た も で すか …. 


信 度 は , 丸 を 描く 命令 CIRCLE に つい て で す . 
次 の プロ グラ ム を 入力 , 保存 し , 実行 し て みて くだ さい . 


MARU. BAS プ ログ ラム 
SCREEN 88, , 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 


CLS 
CIRCLE (100, 100), 50, 3 
END 


CIRCLE 命令 は , 次 の 意味 を 持ち ます . 


CIRCLE ( 横 方 向 の 位置 , 縦 方 向 の 位置 )、 半径 。 色 , 開始 点 、 終 了 点 , 
縦横 比 


単に 円 を 描く だ け で し た ら , 色 ま で プロ グラ ム を か いて , あと は 省略 し て も 
か まい ませ ん . 

ここ で , 開始 点 と 終了 点 と いう の は 円 を か く と き に , どこ か ら か き 始 め て 
どこ で か き 終 える か と いう こと を 示し て いま す . 

注意 し な く て は いけ な い の は , この 値 は 通常 私 達 が 使っ て いる 角度 で は な く 
て , ラジ アン を 使っ て いる 点 で す . ラジ アン と いう の は , 円 周 率 ヶ ニ 3.1415… を 
使っ て 角度 を 表す や り 方 で す . 
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Ouick BASIC の コマ ンド や 関数 な ど を 楽し ぐ 学 ぼう / 


つま り , 右 の 図 の よう に , 円 の か き 始 
め を 0 と し て , か き 終 わり を 2z, つま 


り , 6.283… で 1 周 し ます . 別 の いい 方 を 1。 
する と . 半径 を 1 に し た と き の 円 の 円 周 
方 向 の 長き を 使っ て 角度 を 表す 方 法 で す . sses 


ラジ アン は わか り に くい か ら , 通常 の 角 
度 の 単位 の 度 を 使っ た kakuA を 使い た 
いと いう 人 は , 開始 点 , 終点 に 使う 数 を , ラジ アン を 使う と 


kakuA * 3.1415/180 
ま : な は 。 
kakuA * 0.017453 


の よう に する と , kaku A の 値 を , いつ も 私 達 の 使っ て いる 度 で 表す こと が で き 
ます 。 


90* 1.5707… 
180" 0* る .14 … 0 
6.28・ 
270* 4.7123… 
度 で 表し た 円 ラジ アン で 表し た 円 


開始 点 を ラジ アン で 表す と , 0 の と ころ が , 画面 の 右側 に 来る よう に し て 円 
を か き 始 め ま す . 

また , 開始 点 , 終了 点 の 数 字 の 前 に (マイ ナス ) を 付け る と , 円 の 部 分 を か 
くだ け で な く , 中 心から そこ まで の 線 も 一 緒 に 描い て くれ ます . 円 グラ フ を 作 
り た いと き に は , と て も 便利 で す . た だ し , この 一 (マイ ナス ) 方 向 を 表す わけ 
で は な い の で , 逆 回 り に か く よ う な こと は し ませ ん . 

また , 一 0 で は , 中 心から の 線 を か いて くれ な い の で , 一 6.28… で 代用 し ます . 
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世の中 四角 より 丸 が いい や (CIRCLE) 


MARU2. BAS 
SCREEN 88, , 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 
CLS 


CIRCLE (100, 100), 50, 2, 0, .5, 1 
CIRCLE (200, 100), 50, 2, -0, -.5, 1 
CIRCLE (300, 100), 50, 2, -6.28, -.5, 1 
END 


ッッ ブリ 


ー6.28 
OTROLE_(100. NO 
_50,_2._0.0.5. 1 | 
OTROLE_ (200,_100)」 
-50,-2,- 一 0,- 一 0.5,-1 
CTRCLE_ (300,_100), 
ae _50,。2- 一 6.28.- 一 05_1 
扇形 


最後 の 縦横 比 は , 円 で は な く , だ 円 を か く と き に 使い ます . 値 が 1 の と き が 
真 円 で 1 より 小さ く な る と 横長 の だ 円 に な り ま すし , 1 より 大 きけ れ ば 縦長 
の だ 円 に な り ま す . 


MARU3. BAS プ ログ ラム 
SCREEN 88。 0, 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 


CLS 
CIRCLE (200, 200), 50, 5, 0, 6.28, 1.5 
CIRCLE (400, 200), 50, 6, 0, 6.28, .5 
END 


OTRCL 呈 _(200,_200)、. OTROLE_ (400,_200)」 
_-50,_5,_0,_6.28._1.5 _50,_6,_0,_6.28,_0.5 
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ろ こ ご ろ 変 わる や つ , 
変数 や 


と ある 放課後 の 会 話 , 「 小 泉 今日 子 て か わい いよ な ー], 「 宮 沢 リ エ よ り ず っ と 
いい よ な 」 そこ へ 先輩 が 現れ て , 「 宮 沢 リ エ 最高 だ よ な 」 と , 「 本 当 , 小泉 全日 
子 な ん か 目 じ ゃ な いっ す よ 」 …… どこ に も いる ん で す よ ね . ほら 部 長 の 前 だ け 
巨人 ファ ン と か …. 

そこ で 今度 は , パソ コン の 世界 の 中 で 区 度 の 変わ る や つ “ 変 数 "の お 話 で す . 

パソ コン の プロ グラ ム の 中 で , 変数 は 非常 に 重要 な 働き を し ます . 実際 . す 
べ て の プロ グラ ム は , ある 変数 の 特別 な 値 を 求め る も の と 極 言 する こと も で き 
な く は あり ませ ん . 

パパ ソコ ン で 扱 う 変数 に は , 大 きく 分 け て 数 字 を 扱う 数 値 型 と , 文字 を 表す 文 
字 型 が あり ます . 

さら に , 数 字 を 表す 変数 の 型 に は , 整数 型 と 小数 点 型 に 分 れ ま す . 

整数 型 は 小数点 以下 が 表せ な い 数 字 で す . 

細か い 計 算 は 苦手 で す が , 値 が きっ ちり 出る た め に , お 人 金 の 計算 な ど に 使い 
ます . また , メモ リ が 少な く て 済む の も 特徴 で す . 

小数 点 型 は , 小数 点 以下 が 表せ る 数 字 で す . 

細か い 計 算 が 得意 で , 技術 計算 な ど に 向き ます . 

Quick BASIC の 世界 で は , “整数 型 "“ 長 整数 型 "“ 単 精度 浮動 小数 点 型 "。 
* 倍 精度 浮動 小数 点 型 "の 4 種類 の 型 の 数 字 を 表す 変数 と , “可変 長文 字 列 型 "。 
“固定 長文 字 列 型 " の 2 種類 の 文字 列 型 の 変数 が あり ます . 

数 値 の 変数 は , と くに 意識 せ ず に 型 名 を 省略 し た と き に は , 自動 的 に 単 精度 
の 浮動 小数 点 型 と な り ま す . 

各 数 値 変数 の 使え る 範囲 は , 

整 数 型 : 一 32.768 か ら 32,767 ま で の 整数 値 
長 整数 型 ・ 一 2,147,483.648 か ら 2,147,483,647 ま で の 整数 値 
単 精度 浮動 小数 点 整 数 の 範囲 は , 
負 の 値 : 一 3.402823E 十 38 か ら 一 1.175494 セ ー38 ま で 
44 


態度 の ころ ころ 変わ る や つ , 変数 


正 の 値 : 十 1.175494 セ ー38 か ら 十 3.402823E 十 38 ま で 
倍 精度 浮動 小数 点 型 の 範囲 は , 
負 の 値 : 一 1.797693134862316D 十 308 か ら 一 2.225073858507201Dー308 
まぐ 
正 の 値 ・ 十 2.225073858507201D 一 308 か ら 十 1.797693134862316D 十 308 
ま :⑬ 
と , これ だ け の 数 が 扱え ます . 通常 , 私 達 が 使う 数 字 な ら , 長 整 数 型 と 倍 精度 
の 浮動 小数 点 ま で で 十分 に カバ ー さ れ て いま す . 
と くに ある 変数 を , ある 型 に し た い 場 合 は , 変数 を 使う 前 に その 変数 の 型 を 
宣言 きい ます 
言 は , 次 の よう に し ます . 
整 数 弄 ” DEF INT mouke 
長 整 数 型 DEFLNG ohokin 
単 策 度 浮動 小 数 点 、 DEFSNG neppi 
倍 精 度 浮動 小数 点 DEFDBL heikim 
また , 次 の よう に 書く こと も で きま す 。 
整 数 型 。 mouke% 三 51230 
長 整 数 型 chokm 人 =213726371 
単 精度 浮動 小数 点 nenpii 三 5.763897E 十 12 
倍 精度 浮動 小数 点 heikin #ー2.21035108921316D 十 28 


%&!# は , 変数 名 の あと に 付け て , その 変数 が どう いう 型 な の 
か を 示し ます . 

E 十 12 は , 大 き な 数 を 表す と き に 使い ,. その 前 の 数 に 10 の 12 乗 
(10'?) を 掛け た 値 で ある こと を 示し ます . 

E 一 12 と マイ ナス が 付い た 場合 , 非常 に 小さ な 数 を 表す の に 使い , その 

前 の 数 を 10 の 12 乗 (10'?) で 割っ た 数 で ある こと を 示し ます . 

D も E と 同じ 意味 で す が , 倍 精度 の 浮動 小数 点 に 使い ます . 

DIM( テ ィ メン ショ ン ) を 使っ て , 次 の よう に 宣言 する こと も で きま す . 
DIM mouke AS INTEGER 
DIM chokin AS LONG 
DIM nenpi AS SINGLE 
DIM heikin AS DOUBLE 
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M コ ロン エチ 八 赤ちゃん 
= た に | |( 変 数 の ネー ミン グ ) 


の 自分 の 子供 が 生ま れる と いう の は 不思議 
な 気 が し ます . 少な く と も 半分 は 自分 と 同じ 遺伝 子 を 持っ た 人 間 が この 世の中 
CUNY2RZ60 お 

子供 が 生ま れ て , 最初 に 悩む の が , どう いう 名 前 を 付け る か で す . な に せ ー 
生 つ きま と っ て 行く の で すか ら , 変 な 名 前 に し て し まっ て は か わい そう で す . 
そう で す , プロ グラ ム の 中 の 変数 に も 名 前 が 必要 な の で す . 上 手 な 名 前 を 付け 
て あげ まし ょ う . 


変数 の 名 前 の 付け 方 で 一 番 重 要 な の は , わか りや すい 名 前 を 付け る こと で す . 
昔 は , メモ リ を 節約 する た め に , 「A だ 」, 「B だ 」 と , アル ファ ベッ ト 1 文字 で 
や っ て いま し た が , これ に し て し まう と 。 あ と で な に が な ん だ か わが 届 な く か な 
り ま す . 幸い , Quick BASIC で は , 40 文 字 ま で の 名 前 が 付け られ ます の で , 
AKIRA と いう よう に , だ れ が 見 て も よく わか る 名 前 を 付け まし ょ う . 

Quick BASIC で 変数 の 名 前 に 許さ れる 文字 の 種類 は , アル ファ ベッ ト と 数 
字 で す . この と き , 必ず アル ファ ベッ ト で 始め る よう に し て くだ さい . また 。, 
Quick BASIC の 中 で 使っ て いる 命令 語 は , 当然 , 変数 名 と し て は 使え ませ ん . 


た だ し , 命令 語 を 名 前 の 一 部 に 合 む 変数 は 受け 付け て くれ ます . 
メ PRINT=10 
〇 APRINT=10 


C 言 語 の よう に , 途中 を アン ダー ライ ン で 結ん だ 変数 は 受け 付け ませ ん の で 
注意 し て くだ さい 、. 

Quick BASIC は , 変数 の 大 文字 ・ 小 文字 を 区 別して いま せん . 便利 な こと に 
同じ スペ ル で し た ら , 一 番 最後 に 入力 し た よう に , すべ て の 同じ 変数 を 書き 換 
0G ぐれ まう 
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3 四 , 桂馬 , 王 飛 車 ト に リ , マツ ター( 配 列 ) 


8 回 柏 馬 , 王手 飛車 トリ , 
BASIC マッ ター (配列 ) 


よく ある 光景 で す が , 本 当 の ルー ル で は マッ タ は な し で す ( も し マッ タ を し た 
ら , 即 マ ケ で す ). 
と ころ で , 一 番 前 に 書い て ある 3 四 と は 何 な の で し ょ う . 


ae 4 
先 駒の 位置 は , 
手 3 衝 銀 の よう に アラ ビア 数 字 , 


漢 数 字 の 順 で 表し ます . 


先手 則 か ら 見 ます . 


よく ご 存 知 の よう に , 将棋 板 は 9 X 9 の マス で で き て いま す . ここ で , だ れ 
が どの 駒 を どう 進め た か に つい て , な ん ら か の 決め 方 が な いと , 「 王 の 右 横 2 つ 
目 の 銀 が 右 斜 目前 に 動い て …] な ど と , わけ が わか ら な く な っ て し まい ます . 
そこ で , 上 図 の よう に , アラ ビア 数 字 と 漢 数 字 で 分 け て 場所 を 簡単 に 表し て い 
ます 。 

も うこ れ は , 立派 な 配列 と いえ ます . 

要する に 配列 と は ,。 ある 場所 が 簡単 に わか る よう に 基準 を 決め た 入れ も の を 
作り , その 中 で , どこ に な に が ある か を 示す も の だ と 思っ て くだ さい 、. 

配列 に は , 単純 に 順番 に 番号 を 増やし て いく 1 次 元 の 配列 と , 将棋 板 の よ う 
に 縦 、 横 2 つの 基準 で 示す 2 次 元 の 配列 、 さ ら に それ に 高き を 加え た 3 次 元 の 
配列 と , 次 元 を どん どん 増やし て 行く こと が で きま す . 
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HATIRETU. BAS プ ログ ラム 
CLS 

DIM Y%(80) 

Y%(1) = 1 

Y%(2) = 2 


Y%(3) = 3 
X = Y%1) 
PRINT X 
END 


この プロ グラ ム に 書か れ て いる DIM が 配列 の 宣言 で す . DIM Y%(80) の 
Y%6 が Y と いう 配列 変数 を パソ コン の メモ リ 上 に 取り , その 変数 は 整数 型 で , 80 
個 分 確保 し な さい と いう 命令 で す . 

% は , 整数 型 だ と いう こと を 示し て いま す . 


Y が どの よう な 数 か と いう こと に より , 記号 が 次 の よう に 変わ り ま す . 
長 整 数 DIM Y&@8O) 
単 精度 実数 DIM YI8O) 
倍 精度 実数 DIM Y#80) 
また , 次 の よう な 書き 方 も で きま す . 
整 数 DIM Y(80O) AS INTEGER 
長 整 数 DIM Y(80) AS LONG 
単 精度 実数 DIM Y(80) AS SINGLE 
倍 精 度 実数 DIM Y(80) AS DOUBLE 
1 つ 1 つ が 5 文字 まで の 文字 変数 
DIM Y(80) AS STRING *5 
2 次 元 の 配列 の 場合 
DIM Y%(8, 10) 
の よう に 表し ます . 
これ は , メモ リ 上 に 9 列 ※11 行 , つま り 99 個 分 の 整数 の 領域 を 確保 し な さい 
と いう 命令 で す . 確保 し た あと の 1 つ 1 つの メモ リ 部 分 に 何 が 入る か は , Y%(2, 
_1) の よう に 入る 場所 を 書い て 表し ます . 


注 ) 配列 は 0 から 始ま る た め 、 8, 10 と する と , 9 11 個 分 の メモ リ が 確保 され ます . 
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次 の プロ グラ ム を 入力 し て , 実行 し て みて くだ さい . 


HAIRETU2. BAS プ ログ ラム 
CLS 
DIM Y%(8, 10) 
Y%(2, 1) = 30 


Y%(2,。 2) = 33 
X = Y%(2, 1) 
PRINT X 

END 


将棋 板 を 配列 と し て 宣言 する と , 
DIM SHOUGI9⑨, 9) AS STRING * 10 
の よう に な り ま ず 。 
これ は , メモ リ 上 に 10 個 X10 個 100 個 の 場所 を 確保 し , その お の お の の 場所 


は , 文字 が 10 個 入る 分 だ け 確 保 し な さい と いう 命令 で す . 
この 命令 を 受け る と , パソ コン は , 次 の よう に メモ リ を 確保 し ます . 


10 文 字 10 文 字 10 文 字 10 文 字 
、 8 旧 NW IE 
ーーーーーーーーーーーーーーーーーーーーーーーー ヘ ーー 
100 個 分 


10X10 三 100 個 X10 文 字 


注 ) 配列 は 0 か ら 始 まる た め , 9, 9 と する と , 10X10 の 100 個 分 メモ リ が 確保 され て し 
まい ます . その 中 で 9 X 9 の 81 個 を 利用 し ます . 


で は , この 配列 を 使っ た プロ グラ ム を 実験 し て み ま し ょ う . 


SHOUGI. BAS プ ログ ラム 
CLS 
DIM SHOUGI(9, 9) AS STRING * 10 


SHOUGI(5, 9) = "00" 
SHOUGI(3, 9) = "GIN" 
PRINT SHOUGI(3, 9) 
END 
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DIM 


人 間 は , 3 次 元 の 世界 に 住ん で いま す . これ が 6 次 元 だ , 7 次 元 だ な ど と い 
う と , わけ が わか ら な く な り ま す . DIM の 世界 で いう 次 元 と は , これ と は 少し 
違う よう で す . た と えば , あな た が 家 を 作っ て 貸す 人 だ と し ます . 5 人 ぐら い 
が ワン ルー ム を 借り に 来 た ら , 5 室 を 平屋 で つなげ れ ば いい わけ で す . も っ と 
増え て 20 人 に な っ た ら 20 軒 真直 ぐに つなぐ わけ に は いか な い の で , 5 室 を 4 階 
建 に すれ ば いい わけ で す . これ で も 足り な く な れ ば , 1 号棟 , 2 号棟 … と 増 や 
し て いき , さら に 必要 な ら 第 1 団地 , 第 2 団地 と 増やせ ば 良い わけ で す . 

整数 と か 文字 列 と か を 書く の は , 1 軒 ご と の 大 き さ を 決め て いる わけ で す . 
実際 に は , ワン ルー ム で いい と か , 3DK が 欲し いと か , いろ いろ リク エス ト は 
違い ます . (  ) の 中 の 数 が , その 型 の 家 を 何 軒 作る か を 決め て いま す . 

DIM で 定義 し た 場所 へ の 数 や 字 の 入れ 方 と 取り 出し 方 は , 次 の よう に な り ま 
和 


SO 


DIM の だ と え 話 


DIMINOUT. BAS プ ログ ラム 
DIM A(5, 5) 
A1, 1) = 4 
A(1, 2) = 


A⑤, 1) = 5 
A(5, 2) = 6 
B = A(5, 2) 
PRINT B 


DIM で 定義 し た メモ リ 上 の ある 場所 に , 数 を 入れ る の は 簡単 で す . 左辺 に 
A(5, 2) の よう に 入れ た い 場 所 を ( ) の 中 に 書い た 変数 を お いて お き ,= ニ で 
つない で , 右辺 に DIM で 定義 し た と き と 同 じ 型 の 数 を 書い て や れ ば 良い の で 
す . 

あと で 入れ て お いた 数 が 何だ っ た か 知り た い 時 は , B と いう 変数 を 作り ,= ニ で 
つない で 変数 B に A(5, 2) の 値 を 右辺 に お いて 代入 し て や れ ば 良い の で す . 

B = A(5, 2) 


間 


3 


2 且 醒 4 階 5 己 夫 に 
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= た > (中 国 の 数 の 数 え 方 ) 


突然 の 中 国語 で , ビッ クリ させ て し まっ て ゴメ ン な さい . で も , どこ と な く 
日 本 の いい 方 と 仏 て いま せん か ? 
そこ で ,。 ここ で は , サン ・ ス ー な ら ぬ 算数 の お 話 で す . 


算数 と いう と , だ れ で も 思い 浮か べ る の が , 足し 算 ・ 引 き 算 ・ 掛 け 算 ・ 割 り 
算 で す . ここ で , BASIC の 世界 で は , 次 の よう に 表し ます . 
足し 算 =1 十 2 
引き 算 B=2-1 
掛け 算 51 軸 人 
割り 算 愉 出 ゲタ 
足し 算 ・ 引 き 算 は すん な り 納得 で す が , 掛け 算 と 割り 算 は ちょ っ と 見 な れ な 
い 書 き 方 で す . 
実は 。 これ は コン ピュ ー タ が 表す こと が で きる 文字 の 問題 か らき て いる の で 
す . 
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イー・ ア ル ・ サ ン ・ ス ー( 中 国 の 数 の 数 え 方 ) 


コン ピュ ー タ で は ,X と いう 記号 を 持っ て いま せん . 似 て いる と すれ ば X で 
す が , これ で は , XXY と 書い た と き に , X か ける Y な の か XXY と いう 変数 な 
の か 区 別 が つか な く な り ま す . そこ で , X に も う 1 本線 を 入れ た * な ら マ ア 似 
て いる か ら , と 作っ た の が この 掛け 算 の 記号 な の で す . 
同じ よう に 割り 算 も , 1 エ 2 なら 玉 ,。 これ で は 1 行 に か け な い の で , 必 と な 
り , さら に 文字 を 分 け て 1 プ 2 と な り ま し た . 
他 の 算術 記号 と し て は , べき 乗 に “を 使い ます . つま り , 3?。 3 を 2 乗 する 
は 3 2 の よう に 書き ます . 
べき 乗 3 き . 2 
423 4 23 
ルー ト (平方 根 ) 2.0 SOR(2.0) 
整数 の 割り 算 で , その 商 を 計算 し ます . つま り , 10 エ 3=3… 
1 の と き に , 商 の 3 を 返し ます . 
使い 方 と し て は , 


A=10\3 


の よう に 使い ます . 
MOD 整数 の 割り 算 で , 商 の 部 分 は まっ た く 無 視 し て 余り が いく つ に 
な る か を 返し ます . つま り , 10-3= ニ 3…1 の と き に 1 を 返し 
ま 。 
使い 方 と し て は , 
A = 10 MOD 3 


の よう に 使い ます . 
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=ーc は 知り ませ ん 
( 式 の 作り 方 ) 


コン ピュ ー タ は , も と も と 計算 を 速く 楽に する た め に 作ら れ た 道具 で すか ら , 
計算 する の が 得意 で す . 絵 を か いた り 音 を 出し た りす る の も , ある 種 の 計算 を 
し て いる と いえ な くも あり ませ ん . で も , 世の中 いつ も 計算 どおり に は いき ま 
せん . た と えば , 1 十 1 は いつ も 2 だ と 思っ て いる あな た へ 次 の よう な 質問 を 
し で み ま す , 

(1) 1 で の 水 1 7 に 1 で の 水 1 / を 加え た と き の 水 の 温度 は ? 

( 答 は 2 て で は あり ませ ん ) 

(2) 水 1 7 と アル コー ル 1 7 両方 加え る と 何 /? 

ト の 間 題 は 。 まあ クイ ズ み た いな も の で す が , コン ピュ ー タ の 扱う 式 は , い 
つも 私 達 が 使っ て いる 式 と は 少し 違い ます . た と えば , 左 か ら 右 に 1 十 1= ニ A 
と いう 書き 方 で は コン ピュ ー タ は 理解 し て くれ ませ ん . 


CSS 5) 2 
水 10 と ( き 二 ( ・ 


アル ゴー ル 16 ) 
ぁ # 加 える と の め 

1C の 水 に 
1 と 7 1C の 水 …? 


ラン 5 ッ ン ン 


コン ピュ ー タ の 大 秘密 
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1 填 1 ニ 2 は 知り ませ ん 〈( 式 の 作り 方) 


Quick BASIC で は , 必ず 答 が 代入 され る べき 変数 が 左側 に 単独 で こ な く て 
は な り ま せん . つま り , 1 十 1 の 結果 を A と いう 変数 に 入れ た けれ ば , 
〇 。 ほ & ニ ュ 二 1 
※ 1 二 1] ニ ん A 
また , 方 程 式 の よう に , 
A キ 2 ター6 


の よう な 書き 方 も で きま せん . 
自分 で 書く 時 に は , 変数 は 必ず 等 合 の 左辺 に , 単独 で 存在 する よう に 書く , 
と いう こと 守っ て くだ さい 、. 


前 ペー ジ の 答 は 

(1) 当然 。 1C の まま で す 。 

(2) 水 と アル コー ル を 混ぜ る と , 一 方 の 分 子 の すき 間 に も う 一 方 の 
分 子 が 入り 込み , 27 より 少な く な り ま す . 


2 も 1 人 
(まっ ち て すね 
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2E ト 出 まし た 
ク 野 郎 (三角 関数 ) 


オッ ト , 三角 関数 と 聞い た だ け で 目 が 三角 に 釣り 上 が っ て きた 人 は だ れ で す 
か ? 大 寺 夫 で す . あと で 試験 は あり ませ ん . 

ここ で は , BASIC の 世界 で の 三角 関数 に つい て 勉強 し て 行き まし ょ う . 

三角 関数 は , ゲー ム の 世界 で は 重要 で す . 計器 の 目盛 板 を 書い た り , さま ざ 
まな と ころ で 必要 に な り ま す . 

で は , BASIC 流 の 三角 関数 の 図 を 見 て くだ さい . 


SIN サイ ン COS コサイン TAN タン 

CO C 
B_ ニ _A_*_STN ( 玄 ) C_-= ニ _A_ *_COS(Y) B_=_C_*_TAN () 
A_ =_B_/_STN ( 双 ) A_ =_O_/_COS(Y) C_=_B_/_TAN (の) 


た だ し , ここ で 気 を 付け な けれ ば いけ な い の は ,「 角 度 は 例 に よっ て ラジ アン 
で 表 さ きれ て いる 」』 と いう こと で す . つま り , 360" を 2z, つま り 6.28… で 示し て 
いま す . 
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チヨ ッ ト 出 し まし を サン カン 野郎 (三角 関数 ) 


で は , こ で 実際 に 三角 関数 を 使っ て 計器 の 目盛 板 を 書い て み ま し ょ う . 下 の 
プロ グラ バ を 入力 , 保存 し た 後 , 実行 し て みて くだ さい . 


METER. BAS プ ログ ラム 

SCREEN 88, 3, 1, 1 

WINDOW SCREEN (0, 0)-(639, 399) 

CLS 

CIRCLE (200, 200), 100, 7 

FOR J= 1"050 
JX = 200 + 100 * SIN(J * 3.141592 * 2 / 50) 
JY = 200 + 100 * COS(J * 3.141592 * 2 / 50) 
LINE (200, 200)-(JX, JY), 7 

NEXT J 

CIRCLE (200, 200), 90, 5 

PAINT (200, 200), 0, 5 

CIRCLE (200, 200), 90, 0 

END 


METER2. BAS プ ログ ラム 

SCREEN 88, 3, 1, 1 

WINDOW SCREEN (0, 0)-(639, 399) 

CIS 

CIRCLE (200, 200), 100, 7 

FORJ=1T0O50 
JX = 200 + 100 * SIN(J * 3.141592 * 2 / 50) 
JY = 200 + 100 * COS(J * 3.141592 * 2 / 50) 
LINE (200, 200)-(JX,。JY), 7 

NEXT J 

CIRCLE (200, 200), 90, 5 

PAINT (200, 200), 0, 5 

CIRCLE (200, 200), 90, 0 

FORJ=0TO50STEP5 
JX = 200 + 100 * SIN(J * 3.141592 * 2 / 50) 
JY = 200 + 100 * COS(J * 3.141592 * 2 / 50) 
LINE (200, 200)-(JX, JY), 7 

NEXT J 

CIRCLE (200, 200), 80, 5 

PAINT (200, 200), 0, 5 

CIRCLE (200, 200), 80, 0 

END 
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Ouick BASIC の コマ ンド や 関数 な ど を 楽し ぐ 学 ぼう / 


k もう 1 つの 三角 関数 ATN( ア ー ク タン ジェ ント ) 

いま まで 出 て 来 た 三 角 関 数 は , すべ て 角度 が わか っ て いる と き に , 1 つの 辺 
の 長 さ か ら 他 の 辺 の 長き を 求め る も の で し た . この ATN は , 直角 を 挟む 2 つ 
の 辺 の 長き さき が わか っ て いる と き に , 対応 する 角度 を 出す も の で す . 


ATN ア ー ク タン ジェ ント 


fe 
ニー_ATN(B_/_O) 


も ちろ ん , ZZ の 単位 は ラジ アン で 出 て きま す . 角度 に し た い 人 は , 180/3.1415 
を 掛け て くだ さい . 
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その 他 の 算術 


(Quick 


BASIC | 


Quick BASIC で は , 三角 関数 以外 に も 関数 が いろ いろ と 使え ます . 次 に , そ 
れ ら を 見 て いき まし ょ う . 


アプ ソリ ュー ト 


ABS 
負 の 数 ・ 正 の 数 と も に 正 の 数 に 変換 する 関数 で す . 次 の よう に 使い ます . 


ABS 


ABS. BAS プ ログ ラム 
CLS 
A = 2.2 
B = -2.2 


C = ABS(4): PRINT C 
D = ABS(B): PRINT D 
END 
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TNOD (イン テ ジ ャ ー) 
小数 点 以下 を 切り 捨て て , その 数 より 小さ い 整 数 を 表す 関数 で す . 


INT 


C = INT(A): PRINT C 
D = INTB): PRINTD 
END 


ー タ ニー 
FIX 

INT と 似 て いま す が , 負 の 数 の 場合 , その 数 より 大 きい 整数 と な っ て し まい 
ます . 単純 に 小数 点 以下 の 数 字 を 消し て し まう と 考え る と 良い で し ょ う . 


FIX. BAS プ ログ ラム 
CLS 

上 =2.2 

B = -2.2 

C = FIX(A): PRINT C 
D = FIX(B): PRINT D 
END 


LOG 
e を 底 と し た と き の ヵ の 自然 対数 を 求め ます . 
LOG. BAS プ ログ ラム 


CLS 
A = 12 


Y = LOG(A) 
PRINTY 
END 
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その 他 の 算術 


イク スポ ネン シャ ル 


EXP 
自然 対数 の 底 e(2.7182…) の べき 乗 を 計算 し ます . 


EXP. BAS プ ログ ラム 
CLS 
A = 12 


Y = EXP(A) 
PRINTY 
END 


DATE$ 
内 部 時 計 の 現在 の 日 付け を 示し ます . 


DATE. BAS プ ログ ラム 


TIMES 
内 部 時 計 の 現在 の 時 間 を 示し ます . 


TIME. BAS プ ログ ラム 


文字 列 と し て 表現 きれ て いる も の を 数 字 に 直し ます . 


VAL. BAS プ ログ ラム 
CLS 
A$ = "123" 


B = VAL(A$) 
C=B+ 456 
PRINT C 
END 


61 
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Quick | 
BASIC | 


目覚 まし な ん ぞ 気 に せ ず に 目 が 覚め る まで 眠り 続け 。 お な か が すい て 来 た ら 
ゴハン を 食べ る . 気 が 向 くま で は 仕事 は せ ず , そし て , 仕事 も 自分 の 好き な こ 
と し か し な い , お 人 金 は 好き な だ け 勝 手 に 使う . 

ウー ン , こう いう で た ら め な 生活 っ て 大 好き で す . 

エッ , それ は で た ら め じ ゃ な く て 意 情 な だ け で すっ て ? そう いえ ば …… 


5 め っ て 大 好き で す 
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で だ ら め つ て 大 好き で す 


ラン ダム 


RND 
正確 が モッ トー と 思わ れる コン ピュ ー タ の 世界 で も , アバ ウト で いい か げん 
な や つが 意外 と モテ る ん で す . な ん で そん な や つが ? と 思っ て いる ん で し ょ 
う が , こん な 使い 方 が あり ます . まず シミ ュ レ ーション が あげ られ ます . 人 の 
流れ な ど さ ま ざま な 事象 を コン ピュ ー タ で や っ て みて , 銀行 の カウ ンタ 数 を 決 
め た り , 道路 を 設計 し た りす る と き な ど が あり ます . こう いう 場合 に , 適当 な 
で た ら め が 意外 と 有効 な の で す . また , これ は ゲー ム な ど で は , と て も 大 事 な 
こと な の で す . いつ も 同じ 場所 で , 同じ 敵 が 出 て , 同じ ゴー ルド を 持っ て いる 
と いう の で は ,。 ゲー ム が つま ら な く な っ て し まい ます . そう いう と き に , この 
で た ら め が 意外 と 役に立ち ます . ー* 

Quick BASIC の 世界 で , この で た ら め を 作る に は , RND( ラ ンダ ム ) を 使い 
まず 。 


RND 


RND. BAS プ ログ ラム 
CLS 


X = RND 
PRINT X 
END 


この プロ グラ ム を , 例 に よっ て 実行 し て みて くだ さい . 
RND と 書く と , 書い た 部 分 が 0 から 1 の 間 の で た ら め な 数 と な り ま す . 
も し , 0 か ら 1 で な く 0 か ら 365 ま で の 間 の で た ら め な 数 が ほし いと き は , 


A =RND * 365 


の よう に 替え て くだ さい . さら に , 0 から 365 ま で の 間 の 整数 が ほし いと き は , 
イン ト 
あと の (  ) の 中 の 数 を 整数 に する 命令 INT( イ ン テ ジ ャ ) を 使っ て , 


A = INT(RND * 365) 
の よう に 書い て くだ さい . 
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遇 II 上 し いで た ら め っ て の 


実は , 前 項 の で た ら め を 得る 関数 RND に は , その まま で は と ん で も な い 欠 陥 
が ある の で す . この RND だ け で は , その プロ グラ ム を 実行 する た びに , 出 て 来 
る 数 が 毎回 同じ な の で す . つま り , プロ グラ ム の 中 で は 0.9, 0.1, 0.5 と で 
た ら め に 出 て くる の で す が , も う 1 回 同じ プロ グラ ム を 実行 きせ る と , また 
0.9, 0.1, 0.5 と 出 て き て し まい ます . これ じゃ あ で た ら め と いう の は “カン 
バン に いつ わり あり "の “誇大 広告 "で す . 

実は RND は , ある 計算 式 を 使っ て 一 見 で た ら め そ うな 値 を 出し て いる だ け 
な の で す ( コ ンピュータ に と っ て は , で た ら め な ん て や っ ぱり 不得 意 分 野 だ っ た 
の で す ネ ェ ー)。 

NG この 式 の 元 に な る 数 を 変え て や れ ば , また 違っ た 乱数 を 出し て きま 
す . この 元 に な る 数 を 変え る 命令 が RANDOMIZE で す . 

RANDOMIZE 5 の よう に , あと に 32768 か ら 32767 ま で の 数 を 書く こと で 
発生 する 乱数 の 元 を 変え られ ます . た だ し , この 行 を を の まま プロ グラ ム に 書 
いた の で は , 今度 は 毎回 5 を 元 に し た デタラメ し か 発生 し ませ ん . そこ で , 本 
当 の で た ら め に する に は 次 の プロ グラ ム を RND を 使う 前 に 入れ て くだ さい . 


RNDOM1I ZE. BAS プ ログ ラム 
CLS 

SEED = INT((TIMER - 32767) / 1.5) 
RANDOMIZE SEED 


X = RND 
PRINT X 
END 


この プロ グラ ム は , 午前 0 時 か ら の 秒 数 を 与え る TIMER 変 数 を RAN 
DOMIZE の 元 に し て いま す . これ な ら , 同時 刻 に 始め な い 限り は , 系 列 は 違っ 
て きま す . 

規則 正しく な いで た ら め が ほし い 人 は , プロ グラ ム の RND の 出 て くる 前 に , 
プロ グラ ム RANDOMIZE.BAS を そっ くり まね し て 書い て お いて くだ さい . 
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モジ モジ し な いで (文字 変数 ) 


/ し な いで (文字 変数 ) 


いま の 女の子 は , ウジ ウジ し て る の が 大 きら いで す . 彼女 の 前 で な に も いえ 
ず に モジ モジ し て いる の は , それ だ け で マイ ナス で す . ダメ で モト モト , ダメ 
モト 精神 で アタ ッ ク あ る の み で す . わが 秘密 探偵 団 に より ます と , カワ イイ 子 
ちゃ ん は ほど, 実は みん な が 遠慮 し て , アタ ッ ク し て いな いと いう 結果 が 出 て い 
まず 。 

ここ で , モジ モジ な ら ぬ , 文字 変数 に アタ ッ ク で す . 


Quick BASIC で は , 数 字 だ け で な く 文 字 も 1 つの 変数 と し て 扱う こと が で 
きま す . その と き 大 事 な の は , 変数 の あと に $( ダ ラー マー ク ) を 付け て , パパ ソコ 
ン が これ は 文字 変数 だ と わか る よう に する こと で す . 


STRING. BAS プ ログ ラム 
CLS 

A$ = "BOKU WA" 

B$ = "ANATA GA SUKIDESU " 


C$ = A$+ 8B$ 
LOCATE 3 10 
PRINT C$ 
END 


いつ も の よう に , 上 の プロ グラ ム を 入力 し , 保存 し て か ら 実 行 し て みて くだ 
さい . 


A$ = "BOKU WA" 


の 行 で , A の あと の $ が , A$ は 文字 変数 だ と いう こと を 示し て いま す . 次 に , 
A$ に し た い 文 字 列 は 必ず "(ダブ ルク ォ ー テ ーション マー ク ) で 囲ん で くだ さい . 
くれ ぐれ も (シン グル クォーテーション マー ク ) と 間違え な いよ うに し て くだ 
さい . 
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文字 変数 は , この プロ グラ ム の よう に 加え る こと も で きま す . も っ と も し 
た か ら と いっ て , 中 身 が 変わ る わけ で は な く , 2 つの 文字 変数 が つなが る だ け 
で す が … 

5 行 目 の LOCATE, 3, 10 の 命令 が , 画面 の どこ に 文字 を 書き 始め る 起 
点 を 持っ て 行く か の 命令 で す 。 この プロ グラ ム で は , 上 か ら 3 行 目 , 左 か ら 10 
文字 目 か ら 始 め る よう に 指示 し て いま す . 

そし て , PRINT 文 で 画面 に 文字 を 表示 させ て いま す . また , PRINT 文 と " 
を 使っ て , 


PRINT. BAS プ ログ ラム 
CLS 
LOCATE 12, 15 


PRINT "BOKU WA ANATA GA DAISUKIDESU " 
END 


この プロ グラ ム の よう に 直接 , 望み の 場所 に 文字 を 表示 する こと も で きま す . 

ここ と で PRINT だ と りこ 利和 9 本 9 
ます . 実際 は , PRINT は CRT の 画面 の 上 に 池 を 出 す 命 令 で す . プリ ンタ に 字 
を 出さ きせ た い 時 に は , LPRINT を 使い ます . 


PRINT 


66 


モジ モジ し レ な いで (文字 変数 ) 


LOUCATE 命令 の 違い 


LOCATE は , PC シリ ー ズ の N。。-BASIC と Quick BASIC で は 大 き 
く 違う 命令 の 1 つ で す . 

まず , Quick BASIC で は , 数 字 の 前 後 の カ ッ コ が いり ませ ん . 

次 に , N。。-BASIC で の LOCATE (3 10) は , 上 か ら 11 行 目 の 左 か 
ら 4 字 目 か ら ス ター ト す る こと を 意味 し , Quick BASIC で は , まっ た く 
同じ 命令 が 。 上 か ら 3 行 目 の 左 か ら 10 文 字 目 と いう よう に 行 と 列 が 入れ 
替わっ て し まい , か つ , 行 , 列 と も 1 つ ず つっ 減 っ て し まい ます . これ は , 
Quick BASIC が IBM PC の BASIC と 互換 性 が ある よう に 作ら れ て い 
る た めで す . 

この た め , N。。-BASIC で 書か れ た プロ グラ ム を Quick BASIC に 移植 
する と き に は , 必ず LOCATE の あと の 数 字 を 入れ 替え て , それ か ら 数 字 
の 値 を 調節 し て くだ さい . 

これ を 行わ な いと , 画面 が グ シ ャ グ シ ャ に な っ た り , プロ グラ ム を 何 
度 確認 し て も 合っ て いる の に , 行 数 を 超え て エラ ー が 発生 する こと が あ 
リ り SR 


Ouick BASIC の コマ ンド や 関数 な ど を 楽し ぐ 学 ぼう / 


7 つ で 世界 が 開け る 


* 制 御 ( コ ント ロー ル ) 


野球 の ピッ チャ ー に と っ て コン トロ ー ル は 命 で す . 車 の 運転 か ら 原子 力 発電 
所 まで , この 制御 が 利 か な けれ ば , と ん で も な いこ と に な っ て し まい ます . 
パソ コン の プロ グラ ム に も 制御 構造 が あり ます . と きど き パ ソコ ン が まる で 
生き て いる か の よう に 感じ られ る の も , この 制御 が 良く 考え て ある か ら で し ょ 
う . 

プロ グラ ム の 制御 と いっ て も , な に も 難し いこ と は あり ませ ん .「 ど こ に 行き 
な さい 」 と か , 『 こ うい う 場 合 に は …… を し な さい 』 といった, 流れ を 変え る 命 
令 が いく つか ある だ け で す . 

で は , それ ら の 命令 を 見 て いき まし ょ う . 


“ふり だ し "に も どる (スゴ ロク の 世界 ) 


子供 の ころ 。 お 正月 に な る と スゴ ロク に 熱中 し て いま し た . や っ と ゴー ル 近 
くま で 上 が っ て きた の に , あと 1 歩 と いう と ころ で “ふり だ し に も どる "と 書か 
れ て いた と き の く や し さ , いま で も 思い 出し ます . その 代わ り , “95 に 行く "と 
いう よう に ビリ だ っ た の が , 一 挙 大 逆転 し た と き の 壮 快感 も る 忘れ られ ませ ん . 

この よう に , ある と ころ に くる と , 一 度 に どこ か に 飛ん で 行っ て し まっ て , 
も どっ て こない 世界 が GOTO の 世界 な の で す . 


ーー ミミ 、 の 全 (の 
wa 


GOTO 200 0 


GOTO 
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だ つた だ / つ で 世界 が 開け る 


GOTO 

で は まず , 悪名 高き GOTO 命令 で す . この 命令 は , プロ グラ ム の 世界 で は , 
まる で ビリ ー ザ キッ ド か アル カポ ボネ か , すべ て の 諸悪 の 根源 の よう に いわ れ て 
いま す . これ を 使え ば. プロ グラ ム が スパ ゲッ ティ ー の よう に な り , 構造 化 と 
反対 の 極地 に ある と いう こと に な っ て いま す . そこ まで 悪い や つ で は な い の で 
す が , と も あれ , 甘い 誘惑 で あり , 使い すぎ る と 体 に 。 オッ ト , プロ グラ ム に 
如 い の も 事実 で す . 

GOTO は , 強制 的 に 流れ を 指定 先 に 変え て し まう 命令 で す . 通常 は . あと に 
行 番号 を 書き , GOTO_100 の よう に 使い ます . 

いま まで の BASIC で し た ら , どの 行 に も 必ず 行 番号 が 付い て いま し た の で , 
その 番号 を 書け ば OK で し た . Quick BASIC で は , 原則 と し て 行 番号 は 入り ま 
せん . プロ グラ ム は 特別 な 分 岐 が な い 限 り 順 に 上 か ら 下 に 実行 され て いき ます . 
そこ で GOTO 文 を 使い た い 場合 , 自分 の 行き た い 先 の 行 の 先頭 に な に か 適当 
な 番号 を 付け て くだ さい . この 番号 は 同じ 番号 が 2 ヵ所 に さえ な けれ ば , 別に 
順番 と か に こだわ る 必要 は あり ませ ん . 


番号 を 使う と 見 通し が 非常 に 悪く な る の で , 変わ り に 次 の よう に 描く こと も 
で きま す . むし ろ こ ちら の 方 が 望ま し いと も いえ ます . 


GOTO っ て な に ? 


MOKUTEKT: 


GOTO_TKTSAKT 
1 | 


| 
1 
1 
1 
1 


TKTSAKT: GOTO_MOKUTREKT 


GOTO の 自分 の 行か なせ たい と こ ろ に , 何 か 名 前 を 付け ます . 目的 地 に は , そ 
の 名 前 と すぐ その 後に : を 付け た も の を お きま す . この 行き 先 の 文 は , GOTO 
命令 の 前 に あっ て も あと に あっ て も 構い ませ ん . 

GOTO の と ころ まで きた プロ グラ ム の 流れ は , 強制 的 に 目的 の と ころ まで 飛 
ん で 行き , その 行先 か ら ま た プロ グラ ム を 実行 し て いき ます . 
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5o 』 寺 胡 
只 り の 燃料 


全 い ん で す が か 


| 回 休み 


“すご ろく "で は , 止ま っ た と ころ に より 1 回 休み , 芸 を する , 歌 を 歌う な ど , 
他 の こと を や ら な く て は いけ な いこ と が あり ます . 他 の こと を や っ た あと , 次 
の 順番 に な れ ば , また 同じ よう に 続け る こと が で きま す . この よう に 他 の こと 
を チョ ッ ト や っ て 終わ っ た ら も どっ て くる の が GOSUB の 世界 で す . 

ゴー サブ 
GOSUB 

GOSUB は , GOTO 文 と 似 て いる 命令 で す . GOTO と の 一 番 の 違い は , GOTO 
で は プロ グラ ム の 流れ が いっ た きり に な り ま す が , GOSUB で は 行き 先 で 最後 
に RETURN と 書く と , GOSUB の 次 の 行 に プロ グラ ム の 流れ が も どっ て くる 
0 すし 

プロ グラ ム を 書い て いる と , い ろ い ろ な と ころ で 同じ プロ グラ ム の 部 品 ( サ ブ 
ルー チン ) を 何 回 も 使う こと が よく あり ます . 毎回 毎回 . 同じ プロ グラ ム を 書く 
の は くだ た びれ て し まい ます し , メモ リ を くっ て し まい ます . こう いう と き は , 
同じ 仕事 を する 単位 を サ プ ブルー チン と し て ひと まとめ に し て お き , 必要 な と き 
に いろ いろ な と ころ か ら 呼 ん だ 方 が 便利 で す . 
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だ つた だ / つ で 世界 が 開け る 


GOSUB っ て な に ? GoSB_BUNGYOU 
GOSUB_BUNGYOU 次 の 行 


BUNGYOU: 
/ 
メア 
の RETURN 
し 4 Z 


究 
GOSUB_BUNGYOU./ 
BUNGYOU : 次 の 行 テ 


ひと まとめ に し た 仕事 同じ ルー チー ン を 違う 場所 か ら 
何 回 で も 呼び 出せ る . 


RETURRN 


/ 


ウフ ッ ぅ 
人 5 GO SUB RIE 
と いた ん た ・ 
私 も め な た が 僕 は あな た が 
大 好き で す 6 
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GOSUB の 違い 


Quick BASIC で は , サブ ルー チン は SUB で 宣言 し て 本 体 と 切り 離し 
た 方 が , メモ リ を 有効 に 使え ます . た だ し N。』。- BASIC や いま まで の 
BASIC で 書か れ た プロ グラ ム を 使う 時 は , GOSUB 命令 を その まま 使っ 
た 方 が 楽 で す . 

この と き 注 意 し な けれ ば な ら な い の は , 行 番号 で 呼び 出す と き は , 問 
題 な い の で す が , 名 前 で 呼び 出す と き は , 次 の よう な 違い が あり ます . 


GOSUB の 違い 

上 
GOSUB_KETISAN 100_GOSUB_ *KETSAN 

| 

! 1 
ND 1000_EBTND 
KEISAN・ 2000-*KBITSAN 

i | 

I 1 
RBTURN 3000_RETURR 

Quick BASIC Nss-BASIC 


N。。- BASIC の 方 は 。 サブ ルー チン の 名 前 の 前 に * を 付け て , * 
KEISAN の よう に し ます . また この サブ ルー チン を 呼び 出す と き は , 
GOSUB *KEISAN の よう に 呼び 出し ます . 

一 方 , Quick BASIC で は サブ プル ー チ ン の 名 前 の 後に : を 付け ます . 
つま り , KEISAN: の よう に 直す 必要 が あり ます . また , この ルー チン を 
呼び 出す と き は , GOSUB KEISAN の よう に な に も 付け ませ ん . 

プロ グラ ム を 移植 する と き に は , 気 を 付け て くだ さい . 


プロ グラ ム の あと に サブ ルー チン を た くさ ん 書き , サ ブ 
ルー チン の 前 に END を 忘れ る と 「RETURN の 所 で 対応 
する GOSUB が あり ませ ん 」 と いう エラ ー メ ッ セ ー ジ が 
出 て 原因 の 発見 に 苦労 し ます . END を 忘れ な いよ うに し て くだ さい . 


ツー ペア と スリ ー カ ー ド は どちら が 強い (ポー カー の 世界 ) 


こ ス リー カー ド は 
『 強 い ( ポ ボー カー の 世界 ) 


ツー ペア と スリ ー カ ー ド で は 当然 スリ ー カ ー ド の 勝ち で す . で は , フル ハウ ス 
と フォ ー カ ー ド で は ? スト レー ト フ ラッ シュ と フォ ー カ ー ド で は ? と 考え 
て いく と ,。 わか ら な を なくなっ て し まい ます . 

し か し , キチ ン と ルー ル が 決ま っ て いて , も し 相手 が フォ ー カ ー ド で 自分 が 
スト レー ト フ ラッ シュ な ら 自 分 の 勝ち と いう よう に 決ま っ て いま す . 

この よう に ,「 も し - な ら ば ー し な さい 』 と いう 命令 が IF 命令 な の で す . 


も し , いま 100 万 円 あっ た ら . も し 「 ユ ミチ ャ ン 』 が ぼく の 彼女 だ どっ た ら , も 
し ove 』 

世の中 に は , た くさ ん の 楽し い 「 も し 」 が あり ます . また は , 『「 も し あの 球 が 
打 て て いれ ば 』」,「 も し あの と き 彼 女 に 好き だ と いっ て いた ら 』 と いう よう な 若 
い 「 も し 】 も あり ます . 

パソ コン の 中 で の 『 も し 』 は , プロ グラ ム の 流れ を 大 きく 変え る こと が で き 
計 -9 記 

まだ た , パソ コン が あたかも 知能 が ある よう に ふる まっ た り , さま ざま みな 機械 
の 制御 が で きる の も , この 『 も し 」 が 上 手 に 使 を る か ら な の で す . 
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以下 の プロ グラ ム を 入力 , 保存 し た あと シフ トキ ー を 押し な が ら f・5 キ ー を 
押し て 実行 し て くだ さい 。 

“INPUT SUUJI" と いう 字 が 現れ た ら , 自分 の 入れ た い 数 字 を 入れ て リタ ー ン 
キー を 押し て くだ さい . 


まず , IF 文 の 一 番 の 基本 型式 IF……THEN… で す . この 文 は , IF 文 の すぐ 
あと の 式 が 成立 する な ら ば , THEN か ら 後 の 文 を 実行 し な さい と いう 命令 で 
す . 次 の プロ グラ ム IF.BAS を 見 て くだ さい . 


ITF. BAS プ ログ ラム 
CLS 
PRINT "INPUT SUUJI" 
INPUT A 


IF A > 0 THEN PRINT "PLUS": PRINT "*": PRINT "0 YORI OOI7 

IF A く 0 THEN PRINT "MINUS": PRINT "-": PRINT "0 YORI CHIISAI" 
IF A = 0 THEN PRINT "ZERO": PRINT "0O": PRINT "CHOUDO 0" 

END 


これ は , キー ポー ド か ら 数 字 を 入力 し て , その 後 , リタ ー ン キー を 押す と 入 
力 し た 数 字 が 0 より 大 きい か どう か を 表示 する プロ グラ ム で す . 
INPUT A で AA と いう 数 字 を 入力 し , 次 の 行か ら の IEA>0 で , も し 入 
力 し た 値 が 0 より 大 きい な ら ば THEN 以 の PRINT "PLUS" 以後 を 実行 
すず する よう に し て いま す 。 この 例 の よう に : で つない で 実行 きせ た いこ と を 次 々 
こ 書 いて 行く こと が で きま す . 


IF あん た の 共 が 180cm 以 上 て , 
1F あん た が 東大 法学 部 を 一 番 て 出 て , 
1 F あん た が 年 収 1000 万 円 以上 だ あら 5, 
THEN つき あっ て あけ て も いじ ワ ョ . 


コッ チ で お こと わり 


ツー ベア と スリ ー カ ー ド は どちら が 強い (ポー カー の 世界 ) 


THEN の あと で 実行 させ た い 文 が 複雑 だ びっ た り , 長かっ た りす る こと が あり 
ます . この よう な 場合 , 先程 の よう に 1 行 で 書く の は 大 変 で す . そこ で , Quick 
BASIC で は , 次 の よう な 書き 方 も で きる よう に な っ て いま す . 次 の プロ グラ ム 
を 見 て くだ さい . 


TF2. BAS プ ログ ラム 

CLS 
PRINT "INPUT SUUJI" 
INPUT A 
IFA> 0 THEN 

PRINT "PLUS" 

PRINT "+" 

PRINT "0 YORI OOKII" 
END IF 
IFA く 0 THEN 

PRINT "MINUS" 

PRINT "-" 

PRINT "0 YORI CHIISAI" 
END IF 
IFA=0 THEN 

PRINT "ZERO" 

PRINT "0" 

PRINT "CHOUDO 0" 
END IF 
END 


この 場合 ,TF A > 0O THEN まで で 行 を 変え , その 後 の 行 に AA が 0 より 大 
きい と き に や ら せ た いこ と を 次 々 に 複数 行 に わた っ て 書い て 行き ます . この ま 
まで は , どこ が この IF 文 の 終わ りか が わか ら な い の で , 最後 に END F を 付け 
て , ここ で A>0 に 関す る 部 分 が 終わ り だ よ と いう こと を パソ コン に 教え て あ 
げ ま す . あと は , 条件 の 分 だ け IF 文 を 作っ て いけ ば 良い の で す . 


第 一 の 型 と 第 二 の 型 を 混在 させ た 次 の よう な 書き 方 は 認め られ ま 
せん . 


IFA>0 THEN PRINT "PLUS" 


PRINT "+ 
END IF 
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いく つも の 条件 で 分 ける と き に , IF 文 を 並べ る の で は な く , 次 の よう な 書き 
方 を する こと が で きま す . 


TEFE8. BAS プ ログ ラム 

CLS 
PRINT "INPUT SUUJI" 
INPUT A 
IFA>0 THEN 

PRINT "PLUS" 

PRINT "+" 

PRINT "0 YORI OOKII" 
ELSEIFA く 0 THEN 

PRINT "MINUS" 

PRINT "-" 

PRINT "0 YORI CHIISAI" 
ELSE 

PRINT "ZERO" 

PRINT "0" 

PRINT "CHOUDO 0" 
END IF 
END 


ELSEIF で , 次 の 条件 を チェ ッ ク し ます . この ELSEIF の 文 は , 条件 に 応じ 
て いく つ あ っ て も 構い ませ ん . 最後 に ELSE 以 後 の 文 で , それ まで の 条件 に すべ 
て 合わ な か っ た と き の 処 理 を させ て いま す . 


IF 文 の 注意 点 


パパ ソコ ン の 中 で の 計算 は , 使 を る ビッ ト 数 に 限り が ある た め , 複雑 な 
計算 の あと で , ほん の わずか ずれ る こと が あり ます . この よう な と き に , 
た と えば , IF A = 20.0 THEN END の よう な プロ グラ ム を 書く と , A 
が 19.001 の 次 に 20.001 の よう な 値 を 取る と , 正しく 分 岐 で き な く 
な っ て し まい ます . 

そこ で , ム が 順に 増え て 行き を ,。 ほぼ 20 に な っ た と き に 流れ を 変え た い 
場合 , F A > = 19.8 の よう に 書い て お いた 方 が 安全 で す . 


ツー ベア と スリ ー カ ー ド は どちら が 強い (ポー カー の 世界 ) 
SELECT CASE 
1 か ら 10 ま で の 処理 の うち, どれ か 1 つ を 選択 する 場合 と か , 出 て 来る 結果 
が 決ま っ た いく つか の 整数 の 値 の 1 つ に な る 場合 な ど は , IF 文 を 使う より も , 
SELECT CASE を 使っ た 方 が すっ きり する 場合 が あり ます . 
次 の プロ グラ ム を 入力 , 保存 し て 実行 し て みて くだ さい . 


CASE. BAS プ ログ ラム 
CLS 
INPOT "10 ダ ノ リグ ラル テ 2 が ",N 
SELRECT CASE N 
CASE 1, 3, 5, 7, 9 
PRINT "KISUU" 


CASE 0, 2, 4, 6, 8, 10 
PRINT "GUUSUU" 
CASE ELSE 
PRINT "SONOTA" 
END SELECT 
END 


実行 し た あと , 10 ま で の 数 字 を 入れ て リタ ー ン キー を 押す と , 奇数 か 偶数 か 
を 表示 し ます . 

プロ グラ スム 4 行 目 お よび 6 行 目 の CASE の あと に 書か れ て いる 数 字 と , N の 
値 が 一 致す る と き に CASE 文 の あと に 書か れ た 処理 を 実行 し ます . CASE の あ 
と に 書く 数 字 は , その 処理 に 該当 する 場合 を いく つ で も 並べ て 書く こと が で き 
ます . また , 順番 が 違っ て も 構い ませ ん . 

プロ グラ ム 8 行 目 の CASE ELSE か ら の 行 で 。N が それ まで の CASE の どれ 
に も 該当 し な か っ た 場合 の 処理 を 決め て いま す . 

INPUT 文 は 、CASE.BAS の よう に すぐ あと に "で 囲ん だ 文 を 書 
き , その 文 を 表示 し な が ら 入 力 を 求め る こと が で きま す . 

カタ カナ を 入力 する に は , カナ キー を 押し て か ら 字 を 入れ ます . 


CASE 
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いか い , まあ だ だ よ 


子供 の ころ "カク レン ボ " を し て いて , うま く 隠 れ 過 ぎ て だ れ も 見 付け て くれ 
ず , 夕方 に な っ て し まっ た 思い 出 が あり ます . いま で は , と っ て も 懐か し い 思 
ドゥ アン ティ ル ドゥ ワイ ル 
い 出 で す . この カク レン ボ の 世界 が , DO_ UNTIL と DO WHILE の 世界 な の 
Le の 


DO UNTIL 

“カク レン ポ ボ ”" を する と , 最初 の ころ は 『「 も うい いよ 』 と いう まで 鬼 は じっと 
待っ て いま す . この “ーー す る まで は し て いな さい "と いう 世界 が DO UNTIL 
の 世界 で す . 


DO UNTIL, だ れ か が 『 も うい いよ 』】 と いう まで 待つ 
『 も うい いか い 』 と 聞く 
LOOP 
この 例 で わか る よう に , UNTIL の あと に 書か れ た こと が 起こ る まで , LOOP 
と 書か れ た と ころ まで の 間 を 繰り 返し 行い ます . 


DOUNTIL. BAS プ ログ ラム 

CLS 

INPUT "100 立 リ 7 ゲラ 人 7 72 ダ が ",N 
GOUKEI = 0 

KAZU = 0 

DO UNTILN く KAZU 


GOUKEI = GOUKEI + KAZU 
KAZU = KAZU + 1 

LOOP 

PRINT GOUKEI 

END 


この プロ グラ ム は , 0 か ら あ る 数 まで の 整数 の 合計 を 求め る プロ グラ ム で す . 
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最初 は KAZU を 0 と し て お いて , LOOP を 1 回 通過 する ご と に KAZU を 1 
つ 増 や し , その 数 を いま まで の 合計 に 加 そ て 行き ます . ここ で , N _< KAZU 
最初 に 入力 し た 数 N より KAZU が 大 きく な る まで DO と LOOP の 間 を 繰り 
返し 行い ます . 

パソ コン の 内 部 で は , ある 条件 式 が 成立 する と き は 1, 成立 し な いと き は 0 
と し て 扱っ て いま す . 

DO UNTIL の 場合 は , UNTIL の あと に 書か れ た 式 が 成立 する まで , つま 
り , 式 全体 の 評価 が 1 と な る まで LOOP と の 間 を 繰り 返し 実行 し ます . 

ここ で , 試し に DO _UNTIL の あと を 数 字 の 1 だ け を 入れ て DO _UNTTL 
_1 の よう に 替え て みて くだ さい . UNTIL の あと の 評価 が 1 の た め , LOOP 
まで の 間 は 1 回 も 行わ れず , プロ グラ ム が 終わ っ て し まい ます . 

は) DO UNOHL 0 と する と どす な る で し ょ うか すず パ ツ ュ シン は ほ は 。 あと 
の 値 が 1 に な る まで や り 続 ける た め に , どこ か で 扱え る 数 の 範囲 を 粘 える か 
STOP キー を 押す まで は LOOP まで の 間 を や り 続 ける こと に な り ま す . 


DO WHILE 

“カク レン ボ " も な れ て くる と , 『 も うい いよ 」 と いう 声 の 方 向 で , 大 体 の 場所 
が わか る よう に な っ て し まい ます . こう な る と , お も し ろく な く な っ て くる の 
で , 子供 心 に も 方 法 を 考え , 次 の 段階 の や り 方 を 工夫 し ます . つま り ,「 ま あ だ 
だ よ 』】 と いう 声 が し て いる 間 は 待っ て いる けれ ども , その 声 が し な く な っ た ら 
探し 始め る と いう や り 方 です . 

“ーー し て いる 間 は 一 する "と いう 世界 が DO WHILE の 世界 で す . 


DO WHILE『 ま あ だ だ よ 』 と いう 声 が し て いる 間 は 待つ 
『 も うい いか い 』 と いう 
LOOP 


つま り , WHILE の あと に 書か れ た こと が 起こ っ て いる 間 は , LOOP と の 間 
に , は さま れ た こと を 繰り 返し 行っ て いき ます . 
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DOWHTIL 下 . BAS プ ログ ラム 

CLS 

INPUT "100 アノ パ ゲラ 人 7 2 ",N 
GOUKEI = 0 

KAZU = 0 

DO WHILE KAZU <= N 


GOUKEI = GOUKEI + KAZU 
KAZU = KAZU + 1 

LOOP 

PRINT GOUKEI 

END 


DO WHILE の プロ グラ ム は , 先程 の DO UNTIL の プロ グラ ム と ほとん ど 
同じ で す . 1 つ だ け 違 う の は , DO_ WHILE KAZU < = N と な っ て いる 部 分 
で 

先程 の プロ グラ ム と 違 い , DO WHILE は あと の 式 の 評価 が 1 の と き に 
LOOP と の 間 を 実行 し 続け , 評価 が 0 に な る と き , つま り , あと に 書い て ある 
式 が 成立 し な く な っ た と き に LOOP と の 間 の 実行 を 止め る こと で す . 

この よう に , DO UNTIL と DO WHILE を 使う と , 何 回 繰り 返す か わか ら 
な い 式 を , ある 条件 に な る まで 繰り 返し 続け させ る こと が で きま す . 


DO WHILE 時 刻 麦 に 乗っ て いる DO UNTIL 終電 の 時 序 を 
時 間 の 間 過ぎ る 
LO0P レン る 、 LOoP 
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も うい い ガ い , まあ だ だ よ 


あと に 書く 式 を 間違え る と , 無限 ルー プ に 落ち いっ て し まう こと 
が ある の で , 気 を 付け て くだ さい . 


DO WHILE を 使っ て , ある 間 を ずっ と 繰り 返し て 実行 させ る こと が で きま 
す . ゲー ム と か シミ ュ レ ーション で プロ グラ ム を 1 回 や っ て お し まい と いう こ 
と は まず あり ませ ん . ある ルー チン の 間 を ずっ と 繰り 返し 回 っ て いて , その 中 
で キー 入力 に より 動い た り , 宝 を 見 付け た り , 敵 と 戦っ た りす る の が 普通 で す . 
この よう な 場合 , 次 の よう に する の が 普通 で す . 


DO WHILE 1 V / / ん 


DO wHILE 1 


回 


LOOP 


これ で , DO WHILE と LOOP の 間 を 
繰り 返し 行い ます . 
DO と LOOP だ け を 使っ て , 


DO 


LOOP 


の よう に 書く こと も で きま す . この 場合 ,」 DO と LOOP の 間 を 永久 に 繰り 返す 
旨 代 想 が な り ま す 。 シ ミュ レー ショ ン や ゲー ム で よく 使わ れる や り 方 で す . 


イグ ジッ ト 


EXIT DO 
この まま で は , 2 ヵ所 の 間 を 無限 に 回 る 無限 ルー プ に な っ て , そこ か ら 出 ら 
れ な く な っ て し まい ます . そこ で , EXIT DO と いう 命令 が あり ます . 
CS = INKEY$ 
IF CB = "O" THEN EXIT DO 


の よう に , LOOP か ら 抜 け 出 す 部 分 を 中 に 入れ て お いて くだ さい . そう で な い 
と , STOP キー を 押す 以外 に 止め る こと が で き な く な っ て し まい ます . 
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炎 1、『。 8。 コー。 ドジ シ チ ャ クィ メッツ グ 


みん な が 上 手 に 隠れ る よう に な る と , な か な か 見 つか り ま せん . これ で は 移 
も つま ら な いし , じっと 隠れ て 待っ て いる 方 も た いく つ で す . そこ で , “カク レ 
ン ボ "は さら に 変身 し ます . 

つま り , 数 を 数 えて , ある 一 定 の 数 まで きた ら , 相手 が 隠れ て いよ うがい ま 
い が 探 し 始め る や り 方 で す . 時 間 が 短い と , 隠れ る 方 も 大 忙 が し で , な か な か 
楽し め ま し た . 


FOR NEXT 

これ が FOR NEXT の 世界 で す . 

FOR NEXT は , ある 一 連 の 動作 を 決め られ た 回 数 繰り 返す の に 使い ます . 
・ カ クレ ン ポ "に た と える な ら ば , 光 の よう な プロ グラ ム の よう に な り ま す . 


FOR I = 1 TO 30 
1 を 大 声 で いう 

NEXT 

探し 始め る 


この よう に , 1 か ら 30 ま で を 大 声 で いっ た あと , 次 の 動作 に 移り ます . 


FORNEXT. BAS プ ログ ラム 

CLS 

INPUT "100 嫌 / パ ゲ ヲ 化 テ 9 す 1 ",N 
GOUKEI = 0 

KAZU = 0 


FORI=0TON 
GOUKEI = GOUKEI + KAZU 
KAZU = KAZU + 1 

NEXT 

PRINT GOUKEI 

END 


FOR 1 = 0 TO N の 式 で , NEXT と 書か れ た 式 の 間 を 0 回目 , 1 回 目 , 2 
回 目 … と , N 回 まで 繰り 返し ます . あと に な に も 書か な けれ ば , 毎回 の 増分 は 
1 で す が , あと に STEP と 数 を 書き , 毎回 の 増分 を 指定 する こと も で きま す . 
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も うい いか がい , まあ だ だ よ 
だ た と る ば ぱ ば !, 


FOR 1 = 10 TO 20 STEP 2 


と する と , 10, 12, 14。 … と 2 ずつ 増やし て いき , 20 に な っ た と ころ で 止め ま 
す . これ は , DO WHILE や DO UNTIL と 違い ,。 きち ん と 決め た 数 だ け 繰 り 
返し た いと き に 使い ます . 


FOR NEXT 
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ー ル 使っ て 
効率 良く / 


SUB と FUNCTION 「 0、 計 

SUB と FUNCTION と いう と, すく に GOSUB や DEFFN が 思い 出さ れ ます 
が , ここ で ぃ いう SUB と FUNCTION は , その こと で は あり ませ ん . 

(0 BASIC で は , SUB や FUNCTION を 本 体 の プロ グラ ム と 別個 に 作 

, 本 体 か ら 必要 に 応じ て 呼び 出せ る よう に な っ て いま す . また , SUB や 
WOOO の 中 で 使う 変数 は , 本 体 の 変数 と まる っ きり 独立 きせ る こと が で 
きま す . これ に より , 1 つ 1 つ の SUB や FUNCTION を あたかも 部 品 の よう 
に 使う こと が で きま す . つま り , 一 度 作 っ て お いた 部 品 を , 必要 に 応じ て 他 の 
プロ グラ ム に コピ ー し て で 使う こと が で きま す 。 還 
め た ルー チン が 使え , 2 度 同じ し ルー チン を 書い た り , 変数 の 名 前 を 変え た りす 
る 手間 が 完全 に 省け ます . さら に こう (4 SUB や FUNCTION は , 
メモ リ 上 で 通常 の コー ド 部 分 と 別 の 部 分 を 使う の で , コー ド 部 分 の メモ リ を 有 
効 に 使う こと が で きま す . 

SUB と FUNCTION と も , 原則 的 な 使い 方 は 良く 似 て いる の で す が , ルー 
チン で 仕事 を 行っ た あと , 何 か 値 を 返し て 来る も の が FUNCTION, 値 を 返し 
て こない も の が SUB と 考え て くだ さい . 

メイ ン の ルー チン と SUB, また は FUNCTION の ルー チン の 関係 は , 次 の よ 
うに な り ま すず 、 


サブ 
これ が SUB だ / 


DECLARE_SUB_MARU_(a,_b 


CALL_MARU_(a.b) SUB_MARU_ (x,-y) 


END_SUB 
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モジ ユー ル 使 つて 効率 良く / 


ファ ンク ショ ン 


これ が FUNCTION/ 


DEOCLARE_FUNOTTON_KETSAN_ (8. b) 


0_=_KETSAN_(a.b) 


FUNOCTTON_KETSAN_(x, y) 


PRTINT_O 3 
END_FUNOTTON 


SUB また は FUNCTION で の 処理 が 終了 する と , プロ グラ ム の 制御 は 呼び 
出し た 次 の 行 に も どっ て きま す . 


DECLARE_SUB_MARU_ (a,_b,_c) 


a_ 三 _-100 
b_=_200 
Gaー=50 


SUB_MARU_(X,_,_-) 
CIROCLEE_(x, y),_g,_ る 
END_SUB 


、 


CALL_MARU_(a._b._c) 


END 


DECLARE_FUNOCTTON_K 思 TSAN_ (a.b) 


FUNOTTON_KETSAN_(X,_) 
KEITSAN ニ _X ※ 
選 ND_FUNOTTON 


0_=_KETSAN_(a.b) 


PRTINT_"KBKKA = ":_O 


END 
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Quick BASIC を 使用 し て いる と , 一 時 的 に ある デー タ を ディ スク に セー プ 
し て お きた いと き が あり ます . た と えば , プロ グラ ム の 条件 を と きど き 変 えた 
い が 。 毎回 エディ タ の 中 で デー タ を 全部 変え る の は 大 変 ど と か , 1 つの ブロ グ 
ラム の 結果 を 使っ て , 次 の プロ グラ ム の 計算 を 行う が , 毎回 すべ て の プロ グラ 
ム を 実行 する と 余計 な 時 間 が か か る と き な ど で す . 

この よう な 場合 は , ファ イル を 作っ て 必要 な 事項 の 保存 を 行う の が 非常 に 有 
効 で す . ファ イル を 作っ た あと は , パソ コン の 電源 を 切っ て も , し っ か り デ ィ 
スク に セー ブ し て あり ます か ら 安 心 で す . 

この よう な ファ イル に は , デー タ を 順番 に 保存 , 読出 し し て 行く シー ケン シ 
ャ ルフ ァイル と デー タ に 番号 を 付け , 自由 に その どれ か を 選ん で 読み 出せ る ラ 
ンダ ム ア ク セス ファ イル の 2 種類 が あり ます . ここ で は , シー ケン シャ ルフ ァ 
イル に つい て 見 て 行き まし ょ う . 

Quick BASIC で ファ イル を 扱う ときには, ファ イル の 名 前 ご と に 番号 を 割 
り 振り , 実際 の 読み 書き は この 番号 に 対し て 行い ます . 


SEQUENCE FILE の 書込み 
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大 事 な は デ ー タ は , し つか り 保 存 


次 の SFILEOUT.BAS プロ グラ ム を 入力 , 保存 , 実行 し て み ま し ょ う . 


SFTLEOUT. BAS プ ログ ラム 
CLS 
OPEN "SAMPLE” FOR OUTPUT AS 抽 
WRITE 抽 , "KOKUGO" 


WRITE 抽 , 90 

WRITE 抽 , "SANSUU", 85 
CLOSE 所 

END 


2 行 目 の 
OPEN "SAMPLE" FOR OUTPUT AS#1 


で , SAMPLE と いう 名 前 の ファ イル を 作り , その ファ イル を 書込み 用 の ファ 
イル と し て 使い ,#1 と いう 番号 を 与え て いま す . BASIC で は , 同時 に 複数 の 
ファ イル を オー プン する こと が で きま す . 

3 行 目 か ら の 


WRITE #1. "KOKUGO" 
WRITE #1. 90 


で , # 1 と し て 選ば れ た ファ イル , つま り , ここ で は SAMPLE と いう ファ イル 
に まず KOKUGO の 文字 , 次 に デー タ の 値 で ある 90 を 書き 出し て いま す . そし 
て 次 の 行 で 


WRITE # 1 "SANSUU", 85 


と ある と ころ で 先程 の デー タ の あと に SANSUU の 文字 と SANSUU の 値 で 
ある 85 が 付け 加え られ ます . 

この よう に 新しい デー タ を 書く た びに ファ イル の 後ろ 側 に 付け 足 さ れ て 行き 
ます . 

6 行 目 の CLOSE #1 で す が , この 命令 で 先程 まで デー タ を 書い て きた フ 
ァイル を 閉じ て いま す . 

CLOSE #1 を 書か な いと , パソ コン に は ファ イル の 終わ り が 認識 で き な い 
の で , 必ず 忘れ ず に 書い て くだ さい . 

これ で パソ コン の ディ スク まだ た は ハー ド デ ィ スク 上 に SAMPLE と いう フ 
ァイル が 作ら れ , その 中 に は , 必要 な 文字 と 数 値 が 保存 きれ まし た . 
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文字 列 を 書き 込む 時 に は 文字 列 の 前 後 を ” "(ダブ ルク ォ ー テ ー 
ショ ンマ ー ク ) で 囲ん で くだ さい . 


ファ イル に 書き 込む せ プ ログラム に つい て 勉強 し た の で , 今度 は 保存 され て い 
る ファ イル か ら デ ー タ を 取り 込む せ プ ログ ラム に つい て 見 て いき まし ょ う . 
次 の SFILEIN.BAS プロ グラ ム を 入力 , 保存 , 実行 し て みて くだ さい . 


SFTLEIN. BAS プ ログ ラム 
CLS 
OPEN "SAMPLE” FOR INPUT AS 抽 
INPUT 提 , 
INPUT 抽 , 
INPUT 抽 , 
INPUT 拓 , 
CLOSE 抽 
PRINT A$ 
PRINT TENSUUA 
PRINT B$ 
PRINT TENSUUB 
GOUKEI = TENSUUA + TENSUUB 
PRINT "GOUKEI" 
PRINT GOUKEI 
HEIKIN = GOUKEI / 2 
PRINT "HEIKIN" 
PRINT HEIKIN 
END 


この プロ グラ ム で は , SAMPLE と いう ファ イル を 呼び 出し , 先程 記録 し た 2 
つの 文字 列 と 数 字 を 読み 出し て , その 数 字 の 合計 と 平均 を 求め て いま す . 


SEQUENCE FILE の 読出 し 


SA 5 
SS いく OSN 
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大 事 な は デー は, し つか り 保 存 


先程 と 大 きく 違う の は , 2 行 目 の OPEN "SAMPLE" の あと が INPUT と な 
っ て いる こと で す . これ は SAMPLE と いう ファ イル を , そこ か ら デ ー タ を 読 
み 出 す の に 使う と いう こと を 示し て いま す . 


4 行 目 の 
INPUT # 1], TENSUUA 


で , TENSUUA と いう 変数 の 値 を ファ イル の 中 に 著 わ えら れ て いる 数 に し て 
いま す . ここ で は 先程 , この SAMPLE と いう ファ イル に 記録 し た 90 と いう 数 
値 が TENSUUA と いう 変数 に 入り ます . 

同じ よう に , SAMPLE と いう ファ イル に 記録 し た 85 と いう 数値 を TEN 
SUUB と いう 変数 に 取り 込み , 両者 の 合計 と 平均 を 出し て いま す . 

この プロ グラ ム の よう に , 入力 の と き と 出 力 の と き で 変数 の 名 前 が 違っ て も 
構い ませ ん . また , 数 値 の 他 に 文字 変数 を 記録 する こと も で きま す . 

ここ て で 注意 し た い の は , 変数 の 種類 と 順番 で す . 文字 変数 で 記録 し た ら 読 み 
出す と きも 文字 変数 に , と いう よう に 必ず 記録 し た と き の 変 数 の 種類 と 順番 が 
同じ に な る よう に 読み 出し て くだ さい . 

通常 の 書込み の ほか に , いま まで 作っ て お いた ファ イル に 何 か 情 報 を 付け 加 
を たい とき が あり ます . この と き は , 下 の プ ログ ラム の よう に ファ イル を オー 
プン する と き に APPEND を 使っ て くだ さい . 


SFILEAP. BAS プ ログ ラム 
CLS 
OPEN "SAMPLE” FOR APPEND AS 抽 
WRITE 抽 , "RIKA " 


WRITE 抽 , 100 

WRITE 打 ,。 "SHAKAI", 80 
CLOSE 所 

END 
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8 色 し か 出せ な い 機 種 へ の 対応 


8 色 し か 出せ な い 機 種 を お 持ち の 方 は , その まま で は 動か な い プ ログ 
ラム が いく つか あり ます . その よう な 機種 を お 持ち の 方 は 。 次 の よう に 
プロ グラ ム を 書き 換え て くだ さい . 

1 すべ て の 絵 を か く プ ログ ラム 中 の SCREEN 88, の あと の 数 字 を 0 

に 替え て くだ さい (機種 に よっ て は , SCREEN 88, の あと の 数 字 を 入 

れず に SCREEN 88, , の よう に ブラ ンク で も 構い ませ ん ). 

2. 100 ペ ー ジ に 掲載 し て ある キャ ラク タ ジ ェ ネ レ ー タ CGENE.BAS 

の 1 行 目 SCREEN 88, 3, 1, 1 の 3 を 0 と し て くだ さい . 

次 に , 同じ CGENE.BAS の 4 行 目 WAKUCOLOR=12 の 12 を 3 
に 替え て くだ さい (と くに 3 で な く て も , 自分 で キャ ラク タ に 使わ な い 
と 思う 1-7 まで の 人 色 番号 な ら 何 で も 構い ませ ん ). 

次 に , 同じ 行 の MAXCOLOR= ニ 15 の 15 を 7 に 替え て くだ さい . こ 
れ ら の 改造 で , CGENE.BAS が 8 色 対応 と な り ま す . 


いま や , 大 半 の ソフ トウ ェ ア が 16 色 対応 また は 16 色 専用 で す . 専用 ソ 
フト の 中 に は 8 色 機 で は 動か な いも の が あり ます . VM/VF な どの 機種 
に は , サー ド パ ペー ティ か ら 対 応 す る 16 色 カラ ー ボ ー ド が 安価 で 販売 され 
て いま す . この ボー ド と アナ ログ RGB モニ タ を 使う こと に より , 8 色 機 
で も 16 色 が 使え を る よう に な り ま す . 


二 


いよ いよ 本 格 的 ゲー ム 
の 製作 に 入ろう / 


いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


で は , いよ いよ ゲー ム 作 り に 取り か か り ま し ょ う . 
これ か ら 作 る の は , 世界 に た っ た 1 つ し か な い , あな だ た オリジナル の スペ シ 
ャ ル ゲ ー ム で す . は りき っ て 挑戦 し て くだ さい . 


* ま すず 画面 の 絵 を 動か し て みよ う 


いま まで の 部 分 で は , 動き が まっ た く あ り ま せん で し た . 動き が な けれ ば 全 
然 お も し ろく あり ませ ん . 
ここ で は , 画面 の 絵 を 動か すこ と か ら 始 め ま し ょ う . 


箱 を 動か す 


と りあ え ず , まず 動き の 基本 を 説明 する た め に , 画面 に 箱 を か き , それ を 動 
か し で みる こと に じ ま じ し ょ うう 。 
次 の プロ グラ ム を 入力 , 保存 し た あと 実行 し て みて くだ さい . 


HAKO. BAS プ ログ ラム 
CLS 
TATE = 200 
YOKO = 340 
LINE (YOKO, TATE)-(YOKO + 20, TATE + 20), 7, B 
DO WHILE 1 
BEGIN: 
A$ = INKEY$ 
IF A$ = "” THEN GOTO BEGIN 
IF A$ = "2" THEN TATE =TATE+20 
IF A$ = "4” THEN YOKO = YOKO - 20 
IF 4$ = "6" THEN YOKO = YOEO + 20 
IF 4$ = "8" THEN TATE =TATE-20 
IF 4$ = "Q" THEN END 
LINE (YOKO, TATE)-(YOKO + 20, TATE + 20), 7, B 
LOOP 
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プロ グラ ム を スタ ー ト させ る と , 画面 の 中 央 に 箱 が 現れ ます . ここ で , 数 字 
の 4 の キー を 押す と , 箱 の 左 に も う 1 つ 箱 が 現れ ます . 6 キー を 押す と 右 に , 
2 キー を 押す と 下 に , 8 キー を 押す と 上 に 動き ます . プロ グラ ム を 止め た く な 
っ た 場合 は , Q キー を 押す と 止ま り ま す . 

プロ グラ ム を 見 て み ま し ょ う . 

まず ,TATE = 200 YOKO = 340 縦 と 横 の 初期 値 を 設定 し て いま す . 次 
の LINE 文 で 最初 の 箱 を 描い て いま す . そし て , DO_ WHILE 1 で , 強制 的 に 
無限 ルー プ を 作り 出し , LOOP まで の 間 を 繰り 返 し て いま す . 

この プロ グラ ム で 大 事 な 点 は , 7 行 目 の A$ = _INKEY$ と , あと の 行 の 
IF A$ ="2" で 始ま る 一 連 の 行 で す . 

まず , INKEY$ は , キー ボー ド の どの キー が 押さ きれ た か を 1 文字 単位 で プロ 
グラ ム に 取り 込み ます . AS$ = INKEY$ と 書く と , A$ が その と き 押 され た 
キー に 対応 する 文字 と な り ま す . 

次 に , いま 入力 され た A$ が どの 文字 な の か を , 1 文字 ご と に 確認 し て 行き ま 
す .。 この と き , 調べ た い 文 字 を 必ず "(ダブ ルク ォ ー テ ーション マー ク ) で 前 後 
を は さん で くだ さい . IF 文 で す の で , 押さ きれ た キー が " "の 中 の 文字 と 一 致 
し た ら , IF 文 の あと の 式 を 実行 し ます . 

INKEY$ で 取り 込ま れ た 文字 は , 大 文字 , 小文字 の 区 別 が あり ます . も し , 
キー ボー ド の CAPS ロッ ク さ れ て いて も いな く て も , 同じ よう に 動作 させ た い 
場合 は , 次 の よう に 大 文字 , 小文字 1 つ ず つ に 対応 する 式 を 作っ て お け ば OK 
Go 


IF A$ = "O" THEN…… 
IF A$ = "g' THEN…… 


超 完璧 主義 者 の 人 は , カナ キー の めん どう も 見 て , 
IF A$ = ニタ" THEN…… 


まで 書い て お け ば パー フェ クト で す . 
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特殊 キー の 使用 (]) 


| 数 字 キ ー で の 動き の 入力 は , 作る 方 に と っ て は 簡単 で す が ,。 や は り 。, 


: 矢印 キー[1] や イン サー トキ ー[INS]、 デリ ー ト キー[pEH, リタ ー ン キー 
| [|, な ど が 使え た 方 が 便利 で す . また , プロ グラ ム に よっ て は ぜひ 必 
) 要 に な る こと も ある で し ょ う . そこ で , 特殊 キー で の 入力 を 見 て み ま し 
Pd 
次 の プロ グラ ム を 見 て くだ さい . 
TOKUSHU. BAS プ ログ ラム 

CIS 

PRINT "PUSH THE ARROW KEY " 

HAJIME: 
IF C$ = "" THEN GOTO HAJIME 
KEY1 = ASC(LEFT$(C$, 1)) 
KEY2 = ASC(RIGHT$(C$, 1)) 
IF KEY1 = 0 AND KEY2 = 75 THEN PRINT "LEFT" 
IF KEY1 = 0 AND KEY2 = 77 THEN PRINT "RIGHT" 
IF KEY1 = 0 AND KEY2 = 72 THEN PRINT "UP " 
IF KEY1 = 0 AND KEY2 = 80 THEN PRINT "DOWN " 
GOTO HAJIME 
キー 入力 を 行っ た と き , 1 文字 と し て 入力 され る も の と 2 文字 分 と し 
ト アス キー 
: て 扱わ れる キー と 2 種類 あり ます . これ を ASC 関 数 を 使っ て アス キー 成 
| 分 を 取り 出し , その 値 が あら か じ め 調 べ て お いた キー の 対応 表 と 一 致す 
: る か どう か を 調べ ます . 
C$ =_INKEY$ で , キ ー 入 力 し た 文字 列 を C$ と いう スト リン グ に 取 
) り 込 み ま す . 
KEY1 = ASC(LEFTS(C$, 1) 
! 9 アス キー 
i で 読み 込ん だ C$ ス トリ ング を 左 か ら 1 文字 分 だ け 読み , それ の ASCII コ 
ト 一 ド を 取り 出し ます . 
KEY2 = ASC(RIGHT$(C$, 1) 
で C$ ス トリ ング を 右 か ら 1 文字 取り , その ASCII コー ド を 取り 出し て 
IMA だ Ha 


次 に , 


IF KEY1 = 0 AND KEY2 = 75 
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THEN… な どの 文 で , 両方 の ASCII コー ド が 望む キー の も の か どう 
か を 確か め , 両方 一 致し た 時 の み 所 望 の 処理 を 行う よう に し て いま す . 


ESC ペグ ak 


0 
KEY1 = 
KEY1 = 
KEY] = 
KEY1 = 
KEY1 = 
KEY1 = 
KEY] = 
KEY1 = 
KEY]1 = 
f-10| KEY1 = 
INS | KEY1.= 
KEY] = 
KEY1 = 
poW KEY ユニ 
KEY1 = 
KEY1 = 
KEY1 = 
KEY1 = 


特殊 キー の リス ト 
リタ ー ン キー 


KEY1 =_15 
KEY1 ニ 8 

KEY] 三 _87 
KEY1] = 9 

KEY2_ =_59 
KEY2_ 王 _60 
KEY2_ 王 _61 
KBY2_ 三 _62 
KEY2_ 一 _63 
KEY2_ 王 _64 
KEY2_ =_65 
KEY2_ ニ _66 
KEY2_ ニ _67 
KEY2_ ニ _68 
KEY2_ 王 _82 
KEY2_ ニ _83 
KEY2_ 一 _81 
KEY2_ ニ _73 
KBY] 二 32 
KEY2_ =_75 
KEBY2_ 三 _77 
RiY2- 王 ー7 る 
KEY2_ 三 _80 


プー アー 
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いま の プロ グラ ム で は , キー を 押す ご と に 箱 が 増え , た くさ ん の 箱 が 画面 に 
残っ て し まい ます . 

絵 を か く と き に は , 前 の 絵 を 消し て か ら か か な いと , 画面 に 残骸 が いっ ぱい 
残っ て し まい ます . そこ で , 次 の プロ グラ ム を 入力 し て 実行 し て みて くだ さい . 
前 の HAKO.BAS を 読み 出し て 修正 すれ ば 簡単 で す . 


OLDHAKO. BAS プ ログ ラム 

CLS 

TATE = 200 

YOKO = 340 

OLDTATE = TATE 

OLDYOKO = YOKO 

LINE (YOKO, TATE)-(YOKO + 20, TATE + 20), 7, B 

DO WHILE 1 

BEGIN: 

A$ = INKEY$ 

IF A$ = "” THEN GOTO BEGIN 
IF A$ = "2” THEN TATE = TATE+ 20 
IF A$ = “4” THEN YOKO = YOKO - 20 
IF A$ = "6” THEN YOKO = YOKO + 20 
IF A$ = "8 THEN TATE = TATE - 20 
IF A4$ = “"Q" THEN END 
LINE (OLDYOKO, OLDTATE)-(OLDYOKO + 20, OLDTATE + 20), 0, B 
LINE (YOKO, TATE)-(YOKO + 20, TATE + 20),。 7, B 
OLDYOKO = YOKO: OLDTATE = TATE 

LOOP 


プロ グラ ム の 16 行 目 で 箱 を か く 直 前 に , 前 に か いた 箱 の 上 に 黒 で 線 を 引い て , 
前 に か いた 箱 を 消し て いま す . 

プロ グラ ム の 18 行 目 で , その と きか いた 箱 の 位置 , TATE と YOKO を 別 の 変 
数 OLDTATE と OLDYOKO に 記憶 きせ て いま す . これ は , 次 の 回 で 絵 を 消す と 
き に , どこ の 部 分 を 消し た ら 良 いか を 記憶 さき せる た め に 行っ て いま す . 

絵 を 消し て か ら 次 の 絵 を か くま で に 時 間 が ある と , 画面 上 で 絵 が チラ つき ま 
す . 絵 を 消す の は , 次 の 絵 を か く 直 前 で 行い まし ょ う . 


いつ まで も 箱 ば か り 動か し て いて も つま り ま せん . 次 の パー ト で は , 自分 の 
好き な キャ ラク タ を 作れ る キャ ラク タ ジ ェ ネ レ ー タ に 挑戦 し て み ま し ょ う . 
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ハス 
ます 
5 
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i 
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5 
日 
ま 
i 
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5 
5 
H 
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1 
則 
i 
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ま 
ま 
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日 
5 
* 
5 
i 
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特殊 キー の 使用 


各 キ ー に 対応 し た KEY1 と KEY2 を 得る た め の プ ログ ラム KEY 
CHECK.BAS を 掲載 させ て お きま す . 

これ に より , シフ トキ ー, コン トロ ー ル キー と の 組み 合わ せ も 含め て , 
必要 な キー に 対応 する コー ド を 得 て く だ さい . 


KEYCHECK. BAS プ ログ ラム 
CIS 
50 
PRINT "INPUT KEY CONBINATION” 
100 A$ = INKEKY$ 
IF A$ = "THEN GOTO 100 
C = ASC(LEFT$(A$, 1)) 
D = ASC(RIGHT$(A$, 1)) 
PRINT "KEY1="・C: 
IF LEN(A$) > 1 THEN PRINT "KEY2=": D 
GOTO 50 


この KEYCHECK.BAS の プロ グラ ム は すべ て の キー の チ 
ェ ッ ク を 行う よう に する た め , 特定 の キー で 止ま る よう に は 
作っ て いま せん . 止める と き は STOP キー を 押し て くだ さい . 
また , STOP キー, COPY キー, CTRL 二 C な ど , いく つか の キー 
は 最初 か ら INKEY$ で は 読め ませ ん . 


っ 
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NM っ 作っ て し まお う / 


BASIC 


* か いじ ゅ う , モビ ルス ー ツ , お 姫 様 製造 工場 

ゲー ム の 楽し き は , さま ざま な キャ ラク タ が 画面 狭し と 動き 回 り , さま さま 
冒険, アクション を 行う と ころ に あり ます . 良く で きた ゲー ム に な る と , ま 
る で 自分 が ゲー ム の 中 の 主人 公 に な っ た よう な 気分 に な り ま す . ここ で 主人 公 
に 感情 移入 が で きる か どう か の 重要 な ポイ ント の 1 つと し て , 画面 に 出 て くる 
キャ ラク タ の 姿 が あり ます . 

プ タ の よう に 太っ た お 姫 様 や . 見 る か ら に か 細い モビ ルス ー ツ で は , ゲー ム 
の 楽し み が 半 減 し て し まい ます . 

ここ で , 自分 の 思い どおり の キャ ラク タ が 作れ た ら ど う で し ょ うか . ゲー ム 
の 楽し きも また 倍加 する も の と 思い ます . ここ で は , キャ ラク タ の 作り 方 に つ 
いて 述べ て 行き た いと 思い ます . 

画面 に , 自分 の 好き な ロボ ッ ト や モビ ルス ー ツ また は お 姫 様 な ど . いろ いろ 
な 形 の も の が 登場 し た ら 楽 し いで すね . 

画面 に 自分 の 好き な 形 を か く 方 法 に は , いろ いろ な 方 法 が あり ます . まず , 
その 第 一 は PSET 命令 を 使っ て , 1 点 1 点 自分 の 望む 点 に 色 を 塗っ て 行く 方 法 
で 3 


| CGENE. BAS | 靖 還 重 を 
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KATACHTA. BAS プ ログ ラム 
SCREEN 88, 3, 1。1 
CLS 
WINDOW SCREEN (0, 0)-(639, 399) 
PSET (100, 100), 7 
PSET (101, 100), 7 
PSET (99, 101), 7 
PSET (100, 101), 7 
PSET (101, 101), 7 
PSET (102, 101), 7 
PSET (98, 102), 7 
PSET (99, 102), 7 
PSET (100, 102), 7 
PSET (101, 102), 7 
PSET (102, 102), 7 
PSET (103, 102), 7 
END 


この や り 方 で は 絵 を か いた り , 形 を 替え る の は 大 変 で す . 


次 に , DATA 文 を 使っ た や り 方 が あり ます . これ は , 決め られ た 数 の 点 の 色 
だ け を DATA と し て 持っ て お き , 順番 に セッ ト し て いく や り 方 で す . この 方法 
で も , 絵 を か く の は 大 変 で す . 


KATACHTB. BAS プ ログ ラム 
SCREEN 88, 3, 1, 1 

CLS 

WINDOW SCREEN (0, 0)-(639, 399) 


DATA 100,100,7,101,100,7,99, 101, 7,100,101, 7, 101,101, 7, 102, 101, 7 
END 


そこ で , キャ ラク タ ジ ェ ネ レ ー タ の 登場 で す . 

この キャ ラク タ ジ ェ ネ レ ー タ を 使え ば , どん な 絵 で も 簡単 に か く こ と が で き 
ます . また 今回 作っ た 絵 を 保存 し て お き , 色 や 形 を 変え て 別 の 形 を 作る の も 簡 
単 で す . * 

次 の プロ グラ ム を 間違え な いよ うに , て いね い に 入 力 し て くだ さい . 
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CGENE. BAS プ ログ ラム 
SCREEN 88, 3, 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 
CLS 
COL = 7: WAKUCOLOR = 12: MAXCOLOR = 15 
WIDTH 80, 25 
A=0:B=0 
INSERT = 0 
DIM *X(3000) 
GET (500, 100)-(532, 132), 史 
DIM K%(300) 
GET (11+B*12,11+A*12)-(21+B*12, 21+A*12)。K% 
DIM L%(200) 
GET (22, 32)-(38, 48), L% 
PAINT (50, 50), 115 
DIM 恐 (200) 
GET (10, 10)-(Q15, 15), 麗 
DIM Z%(3000) 
DIM KZ%(3000) 
11110 CLS 


LINE (610, 30)-(630, 50), WAKUCOLOR,B 

PAINT (620, 40), COL, WAKUCOLOR 

FOR { = 0 TO MAXCOLOR 

LINE (610, 80 + 20 * 1)-(630, 100 + 20 * {1), WAKUCOLOR, B 
NEXT 1 

FOR 1 = 0 TO MAXCOLOR 

PAINT (620, 90 + 20 * 1), 1, WAKUCOLOR 

NEXT I 

FORI=0TOY 

LINE (10, 10 + { * 12)-(10 + Z * 12,。 10 + [ * 12)。 WAKUCOLOR 
NEXT I 

FORJ=0T0Z 

LINE (10+」*12, 10)-(10 +J* 12, 10 + Y * 12), WAKUCOLOR 
NEXTJ 

PUT (12, 12), 釣 

PUT (600, 90 + COL * 20), 麗 

LOCATE 2, 70: PRINT "OFE" 

LOCATE 17, 61: PRINT "L=LOAD" 

LOCATE 18, 61: PRINT "8S=SAVE" 

LOCATE 19, 61: PRINT "Q=QUIT" 

LOCATE 20, 61: PRINT "0=PAINT" 

LOCATE 21, 61: PRINT "8=UP" 
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LOCATE 22, 61: PRINT "2=DOWN" 

LOCATE 23, 61: PRINT "4=LRFT" 

LOCATE 24, 61: PRINT "6=RIGHT" 

LOCATE 3。 58: PRINT "TATE=": A+1 

LOCATE 3, 68: PRINT "YOKO=": B+1 

LINE (15+ B*12, 2)-(18+ B*12, 8), 7, BE 

LINE (398, 15 + A * 12)-(404, 18 + A * 12), 7, BE 

100 C$ = INKEY$ 

IF C$ = "THEN GOTO 100 

KEY1 = ASC(LEFT$(C$, 1)) 

KEY2 = ASC(RIGHT$(C$, 1)) 
IF KEY1 = 0 AND KEY2 = 82 THEN INSERT = 1 
IF KEY] = 0 AND KEY2 = 83 THEN INSERT = 0 
IF PL" THEN GOTO 4000 

"1”" THEKNA=A+1:B=B-1 


+ ゴ ルプ 


・B=B+1 


品 避 日 日 日 日 日 昌 
チミ テ ミナ ミネ テ キテ ミ テ ミナ テキ テキ ミィ 
トヨ 
和 


中 Il 
テテ の の 
キ 1 二 1 
ニョ ニョ ーー 


AND 
AND 
AND 
AND 
THEN GOSUB OWARI 
THEN GOSUB OWARI 
?Z” THEN GOSUB RESTART 
THEN A = 
IF B 
PUT (11 + EB * 12, 11 + REA * 12), K%,。 PSET 
GET (11+B*12, 11+A*12)-(21+B*12, 21+A* 12), KR% 
MM2 = 4 
IE POINT(12 + B * 12, 12 + A * 12) = 4 THEN MM2 = 15 
LINE (11+B*12, 11+A*12)-(21+B*12, 21+ A*12), (MM2), BE 
LOCATE 3, 58: PRINT "TATE=": A+ 1 
LOCATE 3, 68: PRINT "YOKO=", B+1 
LINE (15 + EB * 12, 2)-(18 + EB * 12, 8), 0, BE 
LINE (15 + B * 12, 2)-(18 + B * 12, 8), 7, BE 
LINE (398, 15 + RA * 12)-(404, 18 + EA * 12), 0, BE 
LINE (398, 15 + A * 12)-(404, 18 + A * 12), 7, BE 
IF INSERT = 1 THRN 
PUT (12+ B* 12, 12+A* 12), %。 PS 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


・ PAINT (13+ B* 12, 13 + A * 12), COL, WAKUCOLOR 
・ PSET (500 + B, 100 + ), COL: FLAG = 1 

・ LOCATE 1, 70: PRINT "ON " 

END IF 

IF INSERT = 0 THEN 

・ LOCATE 1, 70: PRINT "OFE " 

END IF 

IF FLAG = 1 THEN PAINT (15 + EB * 12, 15 + EA * 12), COL, WAKUCOLOR 
IFEA<> ATHENFLAG = 0 

IF EB <> B THEN FLAG = 0 

EA=A:EB=B 

IF C$ = "0”" THRN 

PUT (12+ B * 12, 12+ A* 12)。%。 PSET 

・ PAINT (13 + B* 12, 13+A * 12), COL, WAKUCOLOR 
・ PSET (500 + B, 100 + 4), COL: FLAG = 1 

END IF 

IF KEY] = 32 THEN 

PUT (12+ B * 12, 12 + A * 12), X%,。 PSET 

・ PAINT (13+ B* 12, 13+ A * 12), COL, WAKUCOLOR 
・ PSET (500 + B, 100 + A), COL: FLAG = 1 

END IF 

IF KEY1 = 13 THEN 

PUT (12+B * 12。12+ A* 12)。 釣 PSET 

・ PAINT (13+ B* 12, 13+ A * 12), COL, WAKUCOLOR 
・ PSET (500 + B, 100 + )), COL: FLAG = 1 

END IF 

?8” THEN GOTO 2000 

?s” THEN GOTO 2000 

”"K” THEN GOTO 5000 

”"k” THEN GOTO 5000 

の 四 朴 GOTO 6000 

”1” THEN GOTO 7000 

?0” THEN GOTO 8000 

”P” THEN GOTO 9000 

THEN GOTO 10000 

ァ ア THEN GOTO 11000 

”/” THEN GOTO 12000 

ァ ー” EN COL = COL - 1 

"*” THEN COL = COL - 1 

IF KEY1 = 0 AND KEY2 = 81 THEN COL =COL - 1 

IF COL = WAKUCOLOR THEN COL = WAKUCOLOR - 1 

IF C$ = "“” THEN COL = COL + 1 

TE KEY] = 0 AND KEY2 = 73 THEN COL = COL + 1 

IF COL = WAKUCOLOR THEN COL = WAKUCOLOR + 1 

IF COL < 0 THEN COL = MAXCOLOR 

TE COL > MAXCOLOR THEN COL = 0 

PAINT (620, 40), COL, WAKUCOLOR 

LINE (598, 90)-(606, 399), 0, BE 
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選曲 曲 三 
トチ ミディ ミ テ ミ テ タテ ミナ テ ネ テ ミナ ミナ テ 】 


+ー 
に ・| 
と っ で っ で うっ 
トン ン ンス 
昌明 明 明 目 明 目 目 目 昌 引 昌 日 


rm 
| 
て っ 


いろ いろ 作 つ て し まお う / 


PUT (600, 90 + COL * 20), 
ECOL2 = COL 

GOTO 100 

2000 

LOCATE 14, 52: PRINT " の 

DIM GRAPH%(300) 

DEF SEG = VARSEG(Z%(0)) 

GET (500, 100)-(531, 131), 2% 

OFFSET% = VARPTR(Z%(0)) 

LOCATE 13, 52 

PRINT "SAVE" 

2500 LOCATE 14, 52 

INPUT "FILENAME=", NAME$ 

IF NAME$ = "" TEN GOTO 2500 

IF NAME$ = "@" THEN END 

LOCATE 2, 52: PRINT " 

LOCATE 2, 52: PRINT NAME$ 

BSAVE NAME$ + ".GRA", OFFSET%, 800 

LOCATE 13, 52: PRINT " 


LOCATE 14, 52・ PRINT " 有 
GOTO 100 

4000 

LOCATE 13, 52: PRINT "LOAD 
LOCATE 14, 52: PRINT " 還 


PUT (500, 100), 履 

4500 LOCATE 14, 52 

INPUT "FILENAME=", NAME$ 

IF NAME$ = "” THEN GOTO 4500 

IF NAME$ = "@" THEN END 

DEF SEG = VARSEG(Z%(0)) 

OFFSETX = VARPTR(Z%(0)) 

BLOAD NAME$ + "GRA"。 OFFSET% 
PUT (500, 100), 2% 

LOCATE 2, 52: PRINT " 届 
LOCATE 2, 52: PRINT NAME$ 

FOR { = 0 TO 31 

FORJ= 0 TO31 

COLOR2 = POINT(500 + I, 100+ の 
PAINT (15 + I * 12, 15+ 了 * 12), COLOR2, WAKUCOLOR 


NEXT J 

NEXTI 

LOCATE 13。 52: PRINT" 有 
LOCATE 14, 52: PRINT " 四 
GOTO 100 


5000 POSITION$ = "HTDARI " 
DISPYOKO = 468: DISPTATE = 100 
GOTO DISPLAY 

6000 POSITION$ = "MIGI " 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


DISPYOKO = 532: DISPTATE = 100 
GOTO DISPLAY 

7000 POSITION$ = "HIDARIUE" 
DISPYOKO = 468: DISPTATE = 68 
GOTO DISPLAY 

8000 POSITION8=" UE “" 
DISPYOKO = 500: DISPTATE = 68 
GOTO DISPIAY 

9000 POSITION$ = "MIGIUE " 
DISPYOKO = 532: DISPTATE = 68 
GOTO DISPLAY 

10000 POSITION$ = "HIDARISHITA" 
DISPYOKO = 468: DISPTATE = 132 
GOTO DISPIAY 

11000 POSITION$ = " SHITA" 
DISPYOKO = 500: DISPTATE = 132 
GOTO DISPIAY 

12000 POSITION$ = "MIGI SHITA" 
DISPYOKO = 532: DISPTATE = 132 
GOTO DISPIAY 

DISPLAY: 

LOCATE 13, 52: PRINT POSITION$ + "LOAD" 

LOCATE 14, 52: PRINT " 

LOCATE 14, 52 

INPUT "FILENAME=", NAME$ 

IF NAME$ = "@” THEN END 

DEF SEG = VARSEG(KZ%(0)) 

OFFSET2% = VARPTR(KZ%(0)) 

BLOAD NAME$ + ".GRA", OFFSET2% 

PUT (DISPYOKO, DISPTATE), KZ% 

DEF SEG = VARSEG(Z%(0)) 

LOCATE 13, 52: PRINT " 

LOCATE 14, 52: PRINT " 

GOTO 100 

RESTART: 

LOCATE 15, 54: PRINT "REALY (Y/N)" 

LOCATE 15, 65 

INPUT ZCHECK$ 

IF ZCHECK$ = "Y" THEN 

A=0:B=0 

EA=0:EB=0 

COL = 7 

INSERT = 0 

GOTO 11110 

END IF 

LOCATE 15, 54: PRINT " 

RETURN 

0WARI: 
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いろ いろ 作 つ て し まお う / 


LOCATE 15, 54: PRINT "REALY (Y/N)” 
LOCATE 15, 65 

INPUT ZCHECK$ 

IF ZCHECK$ = "Y" THEN 

END 

KND IF 

LOCATE 15, 54: PRINT ”" " 
RETURN 


(ブロ グラ ム を 完全 に 入力 し た に も か か わら ず 動 作 し な い 場 合 は , 11 ペ ー ジ の 
囲み ,、 お よび 90 ペ ー ジ の コラ ム を 参考 に し て みて くだ さい ) 


キャ ラク タ ジ ェ ネ レ ー タ の 使い 方 


キャ ラク タ ジ ェ ネ レ ー タ の 使い 方 は 簡単 で す . まず , この プロ グラ ム を 正 し 
く 入力 , 保存 し た 後 実 行 し て みて くだ さい . 次 の よう な 画面 が 現れ た は ず で す . 


letORO 
の GUIT 
の SINT 
の sDOLN 
4 を tEFT 
と RIGHT 


どん な キャ ラク タ で も 作れ る キャ ラク タ ジ ェ ネ レ ー タ 


この ブロ グラ ム を 実行 する と , 32X32 の マス 目 が 現れ ます . この マス の うち 
一 番 左 上 に 小さ な 四角 が 見 えま す . この 四角 が カー ソル の 位置 で す . カー ソル 
の 位置 は 右 上 に も 数 字 で 表示 され て いま す . この カー ソル は , 数 字 キ ー に より 
次 の よう に 動き ます . 


ッ 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


キャ ラク タ ジ ュ ネ レ ー タ の カー ソル と カラ ー 
2 
」 」 
色 が 塗ら れる . 
pk 
0 


1 CN 色 を 替え る . 


移動 方 向 

右側 に 縦 に 皿 角 が 並ん で , さま ざま な 色 を 示し て いま す . この 色 の うち , 左 
に 小さ な 四角 が 現れ て いる 色 , また は 一 番 上 の 四角 の 中 の 色 が その と き の 色 で 
お 

この 色 は ,『 二 』 ま た は 「『 一 」 ま た は ROLL UP, ROLL DOWN を 押す こと に 
より , 色 が 並ん で いる 順番 に 1 つ ず つ 変 わっ て いき ます . た だ し , 1 色 だ け は 
線 を か く の に 使っ て いる た め に 使え を ませ ん . カー ソル の ある 位置 で 数 字 の 「 0 
また は リタ ー ン キー, スペ ー ス キー を 押す と , カー ソル の ある マス 目 が , その 
時 に 選ば れ て いる 色 で 塗ら れ ま す . 

INS」( イ ン サ ー ト ) キ ー を 押す と , 画面 右上 部 に ON が 表示 され , 連続 ペイ 
ント モー ド が ON に な り ま す . 

この モー ド で す と , いち いち 「 0 』 を 押 き な く て も カー ソル が 移動 し た と ころ 
が , 選ば れ た 色 で 塗ら れ て 行き ます . 

DEL」 (デリ ー ト ) キー を 押す と , 画面 上 部 に OFF が 表示 され , 元 の モー ド に 
も 間 功 当 の 

これ を 使っ て , 32X32 の マス 目 の 中 に , 自分 の 好き な 形 を 自分 の 好き な 色 で 
か いて くだ さい . 

絵 を か き 終 を たり, 途中 で 一 端 中 止 し た く な っ た と き は 「S」J」 を 押し て くだ さ 
い . する と 画面 の 右 中 央 に 


SAVE FILENAME = 
の 文字 が 現れ ます , 8 文字 まで の アル ファ ベッ ト で 始ま る 英 数 字 を 入れ て 
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いろ いろ 作 つ て し まお う / 


ENTER キー を 押し て くだ さい . 絵 は , 入力 し た 名 前 .GRA の ファ イル 名 で 
SAVE され ます . この 名 前 は , あと で 絵 を 呼び 出す と き に 必要 で すか ら , し っ 
か り 記録 し て お いて くだ さい . 

か きか け の 絵 を 完成 きせ た り , いま まで か いた 絵 を 修正 し て 別 の 絵 に し た い 
と き は ,『 虐 」』 を 押し て くだ さい . す る と , 画面 の 右 中 央 に LOAD FILENAME = 
が 現れ ます . ここ で 自分 が 呼び 出し た い フ ァイル の 名 前 を 入力 し た 後 , ENTER 
キー を 押し て くだ さい . 自分 の 呼び 出し た い 絵 が 現れ る は ず で す . な お この と 
き フ ァイル 名 に .GRA は 付け る 必要 は あり ませ ん . 

B ド ライ ブ か ら セ ー プ や ロー ド を し た いと き に は , ファ イル 名 を 開い て きた 
ら B: を 名 前 の 前 に 付け て あげ て くだ さい . 

K】 を 押す と , FILE NAME を 聞い て きま す . ファ イル の 名 前 を 入力 する 
と , し で 呼ん だ 絵 の 左 横 に K で 呼ん だ 絵 が 表示 され ます . 

同じ よう に , 上 下 も 含め て 『「L』」 キー の 周り の キー を 押す と , その キー に 対 
応 し た 場所 に 絵 を ロー ド す る こと が で きま す . これ は , 城 な どの 連続 し た 絵 を 
か く と き に , 隣り が どう な っ て いる の か を 見 る の に 便利 で す . 

『Z」 を 押す と , 『REALY(Y/N)』 と 聞い て きま す .「Y』 と 答え る と , すべ て 
の 絵 を 消し て , また 最初 か ら か き 始 め る こと が で きま す . 

『Q』 で 終了 し ます . 

この キャ ラク タ ジ ェ ネ レ ー タ を 使え ば , 自分 の 作り た い キ ャ ラク タ が 何で も 
で きま す . 

思い っ きり 楽し い 絵 を た くさ ん か いて くだ さい . 


OfF 
IaTEs 1 WkOs1 園 


娘 カラ ー ロ 絵 
P. 1 参照 


キャ ラク タタ ジェネレータ で ロボ ッ ト を 作る 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


(Quick 
BASIC 


も し , 1 億 円 を 現金 で 持っ て いた ら , な く な り は し な いか ? と 心配 で 心配 
で , し ょ う が な いで し ょ う . 当然 , 金庫 に し まっ て お く は ず で す . 中 に は 腹巻 
に 巻い て お 腹 に か か を て いる と いう 人 も いる と は 思い ます が (で も , ゴツ ッ ゴ ツレ し 
て 寝 ら れ な い の じ ゃ な いか な ? ). 


金庫 の 中 , 机 の 上 ”? 


せっ か く 〈 作 っ た 無敵 の キャ ラク タ 金 庫 に 入れ て 保管 し よう 
(英語 で シャ レル と , セー フ に セー ブ / な ん ちゃ っ て ). 


せっ か く か いた キャ ラク タ で すか ら , きち ん と ディ スク に し まっ て お きま し 
ょ う . 世の中 , 自分 の 作っ た デー タ ほ ど 貴 重 む も の は あり ませ ん . 

か くい う 筆 者 も , 昔 , パソ コン か け 出 し の ころ , 金欠 病 の あま り 高 い ソ フト 
ウェ ア 本 体 の み を バッ クア ッ プ し , デー タデ ィ ス ク を バッ クア ッ プ し て お か ず , 
苦労 し た こと が あり ます . 

な ん せ , フロ ッ ピ ー デ ィ ス ク 1 箱 7000 円 以上 の 時 代 だ っ た の で す . 

考え て 見 れ ば , 市 販 の プロ グラ ム ソ フ ト は お 人 金 を 出せ ば また 買え ます が , 自 
分 の 作っ た デー タ は , な く な っ て し まえ ば いく ら お 人 金 を つん で も も どり ませ ん . 
また , 同じ 労力 が 必要 と な る だ け で す . 御用 心 , 御用 心 . 

キャ ラク タ の 保存 (セー ブ ) は , キャ ラク タ ジ ェ ネ レ ー タ を 使え ば 簡単 で す . 

セー ブ し た いと き に 「『S」』 を 押し て くだ さい . 

セー プ ブ す る ファ イル 名 を 聞い て くる の で , 英字 で 始ま る 8 文字 以内 の 英 数 字 
を 入れ て くだ さい . リタ ー ン キー を 押す と 自動 的 に 拡張 子 .GRA が 付い た 名 前 
で セー ブ さ れ ま す . 


ミ テ | この と き , くれ ぐれ も 名 前 を メモ し て お いて くだ さい . また , 前 
| に セー ブ し た ファ イル と 同じ 名 前 を 入れ る と , 前 の ファ イル を 消し 


て し まう の で 注意 し て くだ さい . 


ーー ニュ 
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1 億 円 は 金庫 の 中 , 机 の 上 や 


ここ で は , キャ ラク タ の セー プ (保存 ) の 原理 に つい て 学ん で 見 まし ょ う . 
100 ペ ー ジ の CGENE. BAS の 17 行 目 を 見 て くだ さい . 
まず , 

DIM Z%(300O) 


で , メモ リ 上 に 絵 を 取り 込む べき 場所 を 配列 と し て 確保 し て いま す . Z の あと 
の % は , 整数 型 の 変数 と し て 確保 する こと を 示し て いま す . ( ) の 中 の 数 字 
3000 に より , 整数 型 3000 分 の メモ リ を 確保 する よう に 命令 し て いま す . 
次 に , 103 ペ ー ジ 8 行 目 の 
GET (500, 100) 一 (531, 131), Z% 


で , 画面 の 左上 が (500, 100) の 点 , 右 下 が (531、131) の 点 で 囲ま れる 四角 
形 の 中 の 絵 を , 先程 メモ リ 上 に 確保 し た Z% の 部 分 の メモ リ に 入れ て いま す . 
DEF SEG = VARSEG(Z%O) 


の 行 で , メ モリ の セグ メン ト を Z% の メモ リ の 一 番 最初 の 値 に セッ ト し て いま す . 
OFFSET% =_VARPTR(Z%(0)) 


で , 参照 すべ き メ モリ の 最初 を , 先程 の 2% の メモ リ の 1 番 最 初 の 値 に セッ ト し 
て いま す . セグ メン ト , オフ セッ ト と いう 2 つの 値 が 出 て きま し た が , この 2 
つ を 使っ て , メモ リ 上 の 正確 な 位置 を 指定 し て いま す . 


BSAVE “NAME$ + ". GRA", OFFSET%, 800 


で , 先程 選ん で お いた メモ リ の 場所 , つま り , 絵 を 収納 し た Z% の 先頭 か ら 800 
バイ ト 分 を NAME$.GRA と いう 名 前 で , ファ イル と し て ディ スク 上 に セー ブ 
し て いま す . NAME$ は , その と き 自 分 が 入力 し た アル ファ ベッ ト で 始ま る 8 文 
字 以 下 の 名 前 で , PRINCESS で も MOBILST で も 構い ませ ん . これ で , フロ 
ッ ピ ー デ ィ ス ク の 上 に , 先程 の 絵 が PRINCESS. GRA の よう に セー ブ さ れ ま 
す . 

これ ら の 話 を 倉庫 会 社 の 話 に た と える と , まず , DIM 命令 で 荷物 を 入れ る 箱 
を 作り ます . 次 に , GET 命令 で 絵 を いま 準備 し た 箱 に 入れ ます . DEFSEG と 
VARPTR が , 倉庫 会 社 に 教え る 荷物 を 取り に 来る 住所 を 示し て いま す . 

次 に , BSAVE 以下 の 命令 で , 取り に 来 た 荷 物 を フロ ッ ピ ー デ ィ ス ク と いう 
倉庫 に PRINCESS. GRA と いう 名 札 を 付け て し まっ て いま す . 


109 


いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


Quick 


BASIC | クタ を 動か す / 


どう で すか 7? 自分 の 好き な キャ ラク タ が で きま し た か . いつ まで も 箱 だ け 


動か し て いて も つま り ま せん . 今度 は , 作っ た キャ ラク タ を 動か し て み ま し ょ 
学 6 


文 カニ の 親子 


カニ の お 母さん が いい まし た . 

「 ぼ う や みっ と も な いか ら そ ん な 横 に 歩い ちゃ いけ な いよ 」 
カニ の ぼう や が いい まし た . 

「 お 母さん お 手 本 を みせ て ちょ うだ いな 」 


次 の IDOU.BAS の プロ グラ ム を 入力 , 保存 し て くだ さい . その と き , 5 行 目 
の NAME$ = "HERO" 


の "(ダブ ルク ォ ー テ ーション マー ク ) で 囲ま れ た 
中 の 名 前 は , 自分 で 作っ て SAVE し た キャ ラク タ の 名 前 を 入れ て くだ さい . 
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キャ ラク を 動 ガ す / 


T DOU. BAS プ ログ ラム 

SCREEN 88, 3, 1, 1 

WINDOW SCREEN (0, 0)-(639, 399) 

CLS 

TATE = 200: YOKO = 320 

NAME$ = "HERO" 

DIM HERO%(800) 
DEF SEG = VARSEG(HEROX(0)): OFFSETX = VARPTR(HEROX(0)) 
BLOAD NAME$ + ".GRA", OFFSETX 
DEF SEG 

PUT (YOKO, TATE), HEROX 

DO 

BEGIN: 

A$ = INKEY$ 

IF A$ = "" THEN GOTO BEGIN 
IF A$ = "1" THEN TATE = TATE + 32: YOKO = YOKO - 32 
IF A$ = "2” THEN TATE = TATE+ 32 
IF A$ = "3” THEN TATE = TATE + 32: YOKO = YOKO + 32 
IF A$ = "4" THEN YOKO = YOKO - 32 
IF A$ = "6" THEN YOKO = YOEO + 32 
IF A$ = "7" THEN TATE = TATE - 32: YOKO = YOKO - 32 
IF 4$ = "8" THEN TATE = TATE - 32 
IF A$ = "9" THEN TATE = TATE - 32: YOKO = YOKO + 32 
IF A$ = "Q" THEN END 
PUT (YOKO, TATE), HERO%, PSET 

LOOP 


原理 は , 前 に 出 て 来 た 箱 の 移動 で も る HAKO.BAS と あま り 変 わり ませ ん . 
違う と ころ は 5 行 目 か ら 10 行 目 ま で で , 前 に CGENE.BAS を 使っ て 作っ て 
SAVE し て お いた 絵 を メモ リ に 読み 込み , それ を YOKO,TATE と いう 位置 に 
PUT で 表示 し て いる と ころ で す . 同じ よう に , 24 行 目 で LINE 文 で 箱 を か く 代 
わり に PUT 命 ey 絵 を 表示 させ て いま す . PUT 命令 の 最後 の 
PSET は , 別名 “ヤッ チャ ン 命 令 " と いい ます . これ は , いま まで そこ に 誰が 

いよ うと どけ て 自分 の 絵 を か く 命 令 で す . この ほか に も , “仲良 し 命令 ", “ご 遠 
庶 命 令 " と 各種 そろ っ て いま す . 


で は 。 こ の プロ グラ ム を 実行 し て 見 まし ょ う 。 

実行 する と , 画面 の 中 央 に 自分 が 作っ た キャ ラク タ が 現れ た は ず で す . 数 字 
キー の 1 一 9(5 を 除く ) を 押す と , 押し た 方 向 に 動く は ず で す . 

アレ ッ ア レッ , で も 何 か 変 で すね . 


上 還 介 


いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


画面 の 中 で キャ ラク タ が どん どん 増え て し まい まし た . 移動 する た びに 新 し 
い 位 置 に キャ ラク タ が 出 ま す が , 前 の キャ ラク タ が 残っ て し まい ます . 娘 術 の 
世界 で の 分 身 の 術 で は 歓迎 され ます が , ゲー ム の 世界 で の 分 身 の 術 は 歓迎 され 
ませ ん . ゲー ム の 世界 で は “困っ た 君 " と な っ て し まい ます . 


そこ で , 次 の IDOU2.BAS の よう に 改良 し て くだ さい . 


IDOU2 . BAS プ ログ ラム 
SCREEN 88, 3, 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 
CLS 
DIM SHOUKYO%(800) 
GET (0, 0)-(31, 31), SHOUKYOX% 
YOKO = 320: TATE = 200 
OLDYOKO = YOKO: OLDTATE = TATE 
NAME$ = "HERO" 
DIM HEROX(800) 
DEF SEG = VARSEG(HEROX(0)): OFFSETX = VARPTR(HERO%(0)) 
BLOAD NAME$ + ".GRA", OFESET% 
DEF SEG 
PUT (YOKO, TATE), HERO% 
DO 
BEGIN: 


"1” THEN TATE = TATE + 32: YOKO = YOEO - 32 
IF 4$ = "2" THEN TATE = TATE+ 32 
= "3 THEN TATE = TATE + 32: YOKO = YOKO + 32 
A$ = "4” THEN YOKO = YOKO - 32 
IF A$ = "6" THEN YOKO = YOKO+32 


"7” THEN TATE = TATE - 32: YOKO = YOKO - 32 
"8” THEN TATE = TATE - 32 

"9” THEN TATE = TATE - 32: YOKO = YOKO + 32 
IF 4$ = "Q" THEN END 

PUT (OLDYOKO, OLDTATE), SHOUKYO%, PSET 

PUT (YOKO, TATE)。 HERO%, PSET 

OLDYOKO = YOKO: OLDTATE = TATE 


LOOP 


まず 変わ っ た と ころ は , 4 行 目 と 5 行 目 の 
DIM SHOUKYO%(800) 
GET(O, 0) 一 31, 31), SHOUKYO% 
で す . これ は , SHOUKYO% と いう 配列 を 宣言 し て , そこ に 何 も か い て いな い 
絵 の 部 分 を 取り 込ん で いま す . 
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キャ ラク を 動 ガ す / 
次 に 7 行 目 の 
OLDYOKO = YOKO: OLDTATE = TATE 
で 絵 を 消す と き に , どこ を 消す か と いう 値 を 最初 に 表示 する 値 に そろ えて いま 
す . 
27 行 目 で 新しく 絵 を か く 直 前 に . いま まで あっ た 絵 の と ころ に な に も な い 絵 
SHOUKYO% を 表示 し て , いま まで の 絵 を 消し て いま す . 


[|]| 絵 の 消去 は , 新しい 絵 を か く 直前 で や っ た 方 が 絵 の ナ チラ つき が 少な 
し | く て すみ ます 


次 の 行 で 新しい 絵 を 表示 し た 後 , 29 行 目 で , 
OLDYOKO = YOKO:OLDTATE = TATE 
と し て , いま 絵 を か いた 場所 を , それ ぞ れ OLDYOKO, OLDTATE と いう 変 
数 に 入れ て , 次 に 消す と き に は どこ を 消せ ば 良い か 教え て いま す . 


で は , この プロ グラ ム を 実行 し て みて くだ さい . うま くい きま し た か , で は 
拍手 … 
エッ , いら な い 絵 は 消 を る る けど 。 は じ ま で 行く と , 


引数 が 許さ れる 範 胃 で は あり ませ ん (ERR=5) 


の エラ ー が 起こ っ て 止ま っ て し まう で すっ て . 

そう な の で す . 原子 炉 の 周り , 基地 の 周り . ジャ イア ン ツ が 負け た 翌日 の 基 
君 の 周り と , 世の中 , 立入 禁止 の 場所 が いっ ぱい あり ます . 実は プロ グラ ム の 
世界 に も 立入 禁止 の 場所 が あっ た の で す . 

前 の HAKO.BAS の と き の よ うに LINE 命令 で 絵 を か いて いる 場合 に は , 横 
0 一 639, 縦 0 一 399 の 点 の 範囲 を 外れ て 絵 を か いて も な に も 起こ り ま せん で し 
た . と ころ が , PUT 命令 で 絵 を 表示 する 場合 , 絵 の 一 部 分 で も 上 記 を は み 出 る 
範囲 に 絵 を 表示 し よう と する と , この エラ ー が 発生 し て し まい ます . 

これ を 防ぐ に は , 次 の よう な 命令 を , 先程 の IDOU2.BAS プロ グラ ム の 26 行 
目 IF AS = " 〇 "THEN END の あと に 付け 加え て くだ さい . 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


IDOU3 . BAS プ ログ ラム 
IF TATE く 0THENTATE=0 


IF TATE > 367 THEN TATE = 367 
IF YOKO く 0 THEN YOKO = 0 
IF YOKO > 608 THEN YOKO = 608 


これ で キャ ラク タ は 安心 し て 画面 の 中 を 移動 で きま す . 自分 の 作っ た キャ ラ 
クタ が 動き 回 る っ て すご く < 楽し いと 思い ませ ん か ? 

で は , 次 に 先程 の プロ グラ ム の 数 字 を , 次 の よう に 替え て 保存 , 実行 し て 見 
て くだ さい . 


IDOU4. BAS プ ログ ラム 
IE TATE く 0 THEN TATE = 367 


IF TATE > 367 THEN TATE = 0 
IF YOKO く 0 THEN YOKO = 608 
IF YOKO > 608 THEN YOKO = 0 


今度 は , 画面 の 一 番 下 まで キャ ラク タ が 来る と 一 番 上 か ら , 左 に 来る と 右 か 
ら 出 て きま す . 

シュ ー テ ング ゲー ム な ど に 使っ て も , お も し ろ い も の が で きる か も 知れ ませ 
ん . いろ いろ な キャ ラク タ で 楽し ん で くだ さい . 


(プロ グラ ム を 完全 に 入力 し た に も か か わら ず 動 作 し な い 場 合 は , 11 ペ ー ジ の 
囲み 。 お よび 90 ペ ー ジ の コラ ム を 参考 に し て みて くだ さい ) 


文 カラ ー ロ 絵 p. 2 参照 


「My name is HERO.」 
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保存 は まとめ て 面倒 み ま す 


まとめ て 面倒 み ま す 


画面 を まとめ て 保管 し よう 


画面 全部 を 一 度 に セー プ ブロー ド す る 方 法 に つい て 述べ て みた いと 思い ます . 
パソ コン の 絵 は , 画面 上 の 赤 , 青 , 緑 の 多数 の 点 の うち , どの 点 を どれ ぐら 
い の 強 さ で 光ら せる か に よっ て , 絵 を か いて いま す . そこ で , 赤 を 表示 する た 
め の メ モリ 上 に ある 数 値 を 順 諾 よく ディ スク 上 の ファ イル に 保存 し て お き , 必 
要 に 応じ て この ディ スク 上 の ファ イル を , 赤 を 表示 する た め の メ モリ に も ど し 
て や れ ば ぱ ば , 赤 の 面 を 表示 する こと が で きま す . 

これ と 同じ 操作 を , 青 と 緑 に つい て も 行え ば , 画面 上 の 絵 の 保存 と 呼出 し が 
で きる わけ で す . 

炊 の プロ グラ ム GAMENSVE. BAS を 入力 , 実行 し て みて くだ さい . 


GEMENSVE. BAS プ ログ ラム 

SCREEN 88, 0, 1, 1 

WINDOW SCREEN (0 0)-(639, 399) 

CLS 

CIRCLE (200, 200), 70, 1 

PAINT (200, 200), 1, 1 

CIRCLE (300, 200), 70, 2 

PAINT (300, 200), 2, 2 

CIRCLE (400, 200), 70, 4 

PAINT (400, 200), 4, 4 

NAME$ = "SAMPLE" 

Pe IT=1T703 
FT = 1 THEN SAVENAME$ = NAME$ + ".B": VRAM = &HA800 

H 1 = 2 THEN SAVENAME$ = NAME$ + ".G": VRAM = &HB000 
F ] = 3 THEN SAVENAME$ = NAME$ + ".R": VRAM = &HB800 

0 SEG = VRAM 

BSAVE SAVENAME$, &HO, &H7D00 

NEXT 1 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


1 行 目 , SCREEN 88… は , 画面 を 8 色 モ ー ド で 使う こと を 示し て いま す . 

2 行 目 は , 画面 の 左上 の 点 を 0 , 0 右 下 の 点 が 639, 399 に な る よう に 使う と 
いう こと を 示し て いま す .SCREEN と 書か ず に WINDOW の み だ と , 左下 の 点 
が 0, 0 右上 の 点 が 639、399 と な り ま す . 


(0, 0) (639, 0) (0, 399) (639, 399) 

(0, 399) (639, 399) (0, 0) (639, O) 
WINDOW_SOREEN_(0,_0) WINDOW_ (0,_0) 一 (639,_399) 
ー(639,_399) 


3 行 目 , CLS は , それ まで 画面 に ある 不要 な 字 や 絵 を 消し て いま す . 

4 行 目 か ら 9 行 目 ま で は , 何 の 絵 も な いと , きち ん と 保存 ・ 呼 出し が で きた 
か わか ら な い の で , 単に 円 を 描い て , その 中 を 色 で 塗っ て いる だ け で す . 

10 行 目 で 保存 する た め の 名 前 を 決め て いま す . ここ で は 単に SAMPLE と し 
て いま す が , 新しい 絵 を 保存 する た びに 適当 に 名 前 を 変え て くだ さい . 同じ 名 
前 を 使う と , 前 に 保存 し て あっ た 絵 を 消し て し まい ます . 

12 行 目 か ら の 3 行 で ,。 それ ぞ れ の 色 に 対応 し て B, G, R を 付け て いま す . 
つま り , 青 の 画面 は SAMPLE. B と いう 名 前 の ファ イル に , 緑 の 画 面 を SAM 
PLE.G, 赤 の 画面 を SAMPLE.R と いう ファ イル に し て いま す . また , 後ろ に 
ある &HAB8OO な ど は , それ ぞ れ の 色 の 画面 の 始ま り の メモ リ の セグ メン ト を 示 
し て いま す . 

16 行 目 の BSAVE 命令 で , 実際 に 画面 を 保存 し て いま す . 

この プロ グラ ム を 他 の 場面 で 応用 する た め に は , まず 絵 を か く 前 に , ブロ グ 
ラム の 先頭 に この プロ グラ ム の 3 行 目 まで を 書い て お きま す . 次 に LINE 文 な 
ど で 自 分 の ほし い 絵 を か いた あと , プロ グラ ム の 最後 に 10 行 目 以後 の 文 を 書き 
ます . た だ し , 10 行 目 の “ ” で 囲ま れ た 中 の 名 前 は , 絵 ご と に 必ず 変え て 
くだ さい . また , この 名 前 は , 呼び 出す と き に 必要 で すか ら , どこ か に 記録 し 
て お いて くだ さい . 

この プロ グラ ム は 8 色 モ ー ド で 作動 し ます . 
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保存 は まとめ て 面倒 み ま す 


電 画 面 の 呼出 し 


せっ か くく 画面 を 保存 し て も これ を 呼び 出せ な い の で は , まる っ きり 人 金庫 に 現 
金 を 入れ て カギ を な くし た よう な も の で す .。 これ で は 困っ て し まい ます . そこ 
で , 画面 を 呼び 出す プロ グラ ム を 作り まし ょ う . Quick BASIC 上 で 新規 を 選ん 
だ あと , 次 の プロ グラ ム GAMENLDE. BAS を 入力 し て くだ さい . 


GEMENLDE. BAS プ ログ ラム 
SCREEN 88, 0, 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 


1 THEN LOADNAME$ = NAME$ + ".B": VRAM = &HA800 


2 THEN LOADNAME$ = NAME$ + ".G": VRAM = &HB000 
IF ] = 3 THEN LOADNAME$ = NAME$ + ".R": VRAM = &HB800 
DEF SEG = VRAM 
BLOAD LOADNAME$ 
NEXT 1 


面 の 名 前 を 決め て いま す . " "で 囲ま れ た 中 の 名 前 を , 自分 が 保存 し た 画 
面 に 付け た さま ざま な 名 前 に する こと で , いろ いろ な 画面 を 呼び 出す こと が で 
きま す . 

6 行 目 か ら 8 行 目 ま で で , 各色 の 画面 の 名 前 と ,。 その ファ イル の 中 の デー タ 
を メモ リ の どの 部 分 に 送れ ば 良い か を 決め て いま す . 


いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


9 行 目 で ファ イル の 取込み 先 を , その 直前 で 決め た メモ リ の セグ メン ト に セ 
ッ ト し て いま す . 

10 行 目 の BLOAD 命令 が ファ イル を メモ リ に 取り 込む た め の 命令 で す . 

この プロ グラ ム を 応用 する 場合 , 他 の プロ グラ ム の 中 で 実際 に 画面 を 呼び 出 
し た い 部 分 に , この プロ グラ ム と 同じ こと を 書い て お きま す . た だ し , 4 行 目 
の ” に 囲ま れ た 名 前 だ け は , 前 に 保存 する と き に 記録 し て お いた 名 前 に 
し まず, 

この よう に , 画面 全体 を 保存 , 呼び 出す 方 法 は , 最初 か ら そ の 場 で 複雑 な 絵 
を か く の よ り も 絵 を か く 時 間 が 短く て 済む 利点 が あり ます . また , 1 番 の 利点 
と し て は , た っ た 数 行 で 複雑 な 絵 を 表示 で きる 点 に あり ます . 

と ころ で , さっ き の プ ログ ラム で は , 絵 の 表 示 を 各色 ご と に 上 か ら や っ て い 


特別 大 付録 , IBM PO で の 画面 の 扱い 方 


: DOS V も 5.0 版 が 出荷 され , 日 本 で も IBM PC が 本 格 的 に 活躍 し よう 
と し て いま す . 

| 私 も IBM PC を 1 耕 持っ て いま す が , アメ リカ の 最新 の ゲー ム を 人 よ 
! り 早く 使え た り , また , 日 本 より ソフ トウ ェ ア が ず ー と 安く 買え た り と ,。 
| 結構 楽し ん で いま す . これ か ら も IBM PC が どん どん 増え て 行く と 思い 
| ます . そこ で , IBM PC 上 で の Quick BASIC の 使い 方 を ここ で 述べ て 
) お こう と 思い ます 。 

|  VGA 対 応 の 場合 , SCREEN モー ド は 12 で す . また , ドッ ト 数 が 640X 
| 480 な の で , 画面 を 扱う プロ グラ ム の 最初 の 3 行 は 次 の よう に し ます . 


SCREEN 12 
WINDOW_SCREEN (0, O) (639, 479) 
CLS 


画面 を 保存 する に は , 次 の IBMGSAVE.BAS を , 絵 を か いた プロ グラ 
! ム の 最後 に 付け 加 た てく ださい. また , " " で 囲ま れ た FILE 名 は 
: 適当 に 替え て くだ さい . 


保存 は まとめ て 面倒 み ま す 


まし た . で も , これ で は あま り カ ッ コ 良く あり ませ ん , そこ で , 次 の よう に 修 
EC 7 だ さき Man 


GEMENLD2. BAS プ ログ ラム 
SCREEN 88。 0, 1, 0 
WINDOW SCREEN (0, 0)-(639, 399) 
CLS 
NAME$ = "SAMPLE" 
FORT=1TO3 
IF THEN LOADNAME$ = NAME$ + ".B": VRAM = &HA800 


T =1 

1 = 2 THEN LOADNANES = NAME$ + ".G": VRAM = &HBO00 
FT = 3 THEN LOADNAME$ = NAME$ + ".R": VRAM = &HB800 
DF md 。 VRAM 

BLOAD LOADNAME$ 

NEXT I 

SCREEN 88, 0, 0, 1 


TBMGSAV 芯 . BAS プ ログ ラム 
SCREEN 12 
WINDOW SCREEN (0, 0)-(639, 479) 
bytes& = 38400 
FOR1I%=0TO3 
OUT 組 3CE, 4 
OUT &H3CF, 1% 
BSAVE "AAA" + ".BP" + CHR$(49 + 1%), 0, bytes& 
NEXT 1% 


画面 を ロー ド し た い 場 合 , 次 の IBMGLD.BAS を ロー ド し た い 部 分 に 
書い て くだ さい . た だ し , ファ イル 名 は セー プ し た と き と 同 じ も の を 使 
っ て くだ さい . 

TI BMGLD. BAS プ ログ ラム 
FORI%=0703 
00T &H3C4, 2 


OUT 旭 3C5, 2 ~ 1I% 
BLOAD "AAA” + ".BP" + CHR$(49 + 1%) 


NEXT I 
IBM PC で 動か す に は , IBM PC 用 の Quick BASIC が 必 
ペン ec NR 
RT 上 記 の や り 方 は , IBM 版 の DOS 5.0 お よび IBM PC 用 の 
Quick BASIC で 使っ て いま す . また , VGCA 以外 の モー ド に 
は 対応 し て いま せん . 


いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


変わ っ た と ころ は , 1 行 目 と 最後 に 1 行 付け 足し た と ころ で す . いま の PC- 
9801 は , 0 と 1 と 画面 を 2 画面 持っ て いま す . 

ここ で , いま の プロ グラ ム の 1 行 目 の SCREEN 文 で すか , 最後 か ら 2 つ 目 
の 1 で 。 絵 を か く の を 1 の 画面 で 行っ て いま す . また , 一 番 最後 の 0 で , その 
と き 実 際 に 見 を て いる の は 0 の 画面 で す . こう や っ て 見 えな いと ころ で 絵 を か 
いて お き ,。 か き 終 わっ た と ころ で , 最後 の 行 で 1 の 画面 を 表示 し て いま す . 市 
販 の ほとん どの ゲー ム が , 絵 を 全面 的 に か き 替 える と き に は , この 方 法 を 使っ 
で wi ます 。 


生 二 ド 色 数 絵 を か く ア クティ ブ 画 面 表示 を する 画面 


SCREEN 88, 0. 1, 0 


いま まで に 見 て きた 画面 セー ブ の プロ グラ ム 部 分 を , 絵 を か く プ ログ ラム の 
う し ろ に 書い て 実行 する と, 自分 の 絵 が ディスク に セー プ さ れ ま す . また , 画 
面 ロ ー ド の プロ グラ バム 部 分 を 絵 を 表し た い プ ログ ラム に 入れ て お く と , ディ ス 
ク に 入れ て お いた 絵 を いつ で も 読み 出す こと が で きま す . 

この プロ グラ ム は 8 色 モ ー ド で 作動 し ます . 


画面 g 鈴 6 
が いて いま す 
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"重ね 合わ せ "は 難し いや 


わせ ぜ " は 難し い @ 


"重ね 合わ せ " と いう の は , 背景 や 敵 の キャ ラク タ の 上 に 味方 の キャ ラク タ を 表 
示し た と き , 両方 の 絵 が 混ざり 合わ ず , 自分 の 表示 し た い 絵 が 優先 され , その 
向う 側 に 背景 な ど が 見 える よう に する テク ニッ ク で す . 

ファ ミコ ン な どの ゲー ム 専 用 機 や , 一 部 の パソ コン で は , 最初 か ら “ 重 ね 合わ 
せ " を 考え て ハー ドウ ェ ア が 作っ て あり , 背景 面 に 絵 を か いて お き , 手前 の スプ 
ライ ト 面 に キャ ラク タ を 描け ば , パソ コ ン が か っ て に “重ね 合わ せ " を や っ て く 
れ ま す . それ に 引き 替え , PC-9801 や IBM PC で は , この 機能 が な く , プロ グ 
ラム を 作る 私 達 が 面倒 を 見 て や ら な く て は いけ ませ ん . 

ここ で は , “重ね 合わ せ ” の 技術 に つい て 学び まし ょ う . 


寺本 格 的 重ね 合わ せ 


次 の 本 格 的 重ね 合わ せ の 図 を 見 な が ら 読ん で くだ さい . 


和議 較 


① ② W Liy 


白地 に キャ ラク タ の 絵 WW ww 
だ け を 黒く 抜き 出し た 絵 背 明 
(透明 ) 
に 上 語 記 
WW WI ぃ W 


透明 と 背景 の AND を と る と . AND を と っ た 絵 と キャ ラク タ の 絵 
を OR を と る と . 
本 格 的 重ね 合わ せ 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


文 カラ ー ロ 絵 p.1 参 照 


主人 公 DELICE( デ ライ ス ) TOUMEI( 透 明 ) PINK( 全 面 ビ ピンク) 
GREEN( 全 面 録 


まず 。 キ ャ ラク タ の 絵 DELICE. GRA を 用 意 し ます . CGENE を 使え ば 簡単 
で す . 作り 終わ っ て 絵 を 保存 し た と ころ で , 透明 の 絵 を 作り ます . つま り , キ 
ャ ラク タ の 絵 の あ る と ころ は 真っ 黒 で , それ 以外 の と ころ は 真っ 白 の 絵 で す . 
この 絵 と 背景 を 重ね 合わ せる と , 白い と ころ だ け 背 景 が 穫 け て 見 える の で , 大 
明 と 呼ぶ こと に し ます (黒い と ころ に 着目 すれ ば , 影 また は マス ク と いう こと に 
な り ま す ). CGENE.BAS プロ グラ ム で 作っ て , TOUMEI と いう 名称 で 保存 し 
て お いて くだ さい 

次 に , 全部 を ピン ク に 塗っ た PINK.GRA と 緑 に 塗っ た GREEN.GRA の 痛 
景 の 絵 を 同じ よう に CGENE.BAS プロ グラ ム と し て 用 意 し ます . 

ここ まで 準備 び で きた と ころ で , “重ね 合わ せ " の 開始 で す . 前 図 の ③ を 見 て 
くだ さい . 

まず 背景 の 絵 と 秀 明 の 絵 の AND を 取っ て いま す . こう する こと に より , 叙 明 
の 絵 の 自 い 部 分 だ けが 透け て 見 え , 背景 の 絵 が 見 え を ます. キャラ クタ に 相当 す 
る 黒い 部 分 の と ころ は , 影 と な っ て 真っ 黒 に な り ま す . 

次 に , 前 図 の ④ を 見 て くだ さい . いま , AND を 取っ て , キャ ラク タ 部 分 だ け 
が 黒く 抜け て いる 背景 の 絵 と , キャ ラク タ の 絵 の OR を 取っ て いま す . こう する 
こと に より 。 抜け て いる 部 分 に キャ ラク タ の 絵 が スッ ポリ と 入り , 見 事 , “本 格 
的 重ね 合わ せ " の 完成 で す . 
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“重ね 合わ せ "は 難し いや 


KASANE. BAS プ ログ ラム 

CLS 

DIM PINK%(800) 
DEF SEG = VARSEG(PINK%(0)) 
OFFSET% = VARPTR(PINK%(0)) 
BLOAD "PINK.GRA", OFFSET% 
DEF SEG 

DIM GREEN%(800) 
DEF SEG = VARSEG(GREEN%(0)) 
OFFSETX = VARPTR(GREEN%(0)) 
BLOAD "GREEN.GRA"。 OFFSET% 
DEF SEG 

DIM TOUMEI%(800) 
DEF SEG = VARSEG(TOUMEI%(0)) 
OFFSETX = VARPTR(TOUMEI%(0)) 
BLOAD "TOUMEI.GRA", OFESET% 
DEF SEG 

DIM DELICE%(800) 
DEF SEG = VARSEG(DELICE%(0)) 
OFSET% = VARPTR(DELICE%(0)) 
BLOAD "DELICE.GRA", OFESET% 
DEF SEG 

PUT (100, 1), TOUMEIT%, PSET 

PUT (200, 1), DELICE%, PSET 

PUT (100, 50),。 PINK%, PSET 

PUT (200, 50), GREEN%, PSET 

PUT (100, 100), PINK%, PSET 

PUT (100, 100), TOUMEI%, AND 

PUT (200, 100), GREEN%, PSET 

PUT (200, 100), TOUMEI%, AND 

PUT (100, 150), PINK%, PSET 

PUT (100, 150), TOUMEI%, AND 

PUT 00, 150), DELICE%, OR 

PUT (200, 150), GREEN%, PSET 

PUT (200, 150), TOUMEI%, AND 

PUT (200, 150), DELICE%, OR 

DO WIHLE 1 

LOOP 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


“本 格 的 重ね 合わ せ " の 原理 
AND を 取る と , 両方 の 絵 で 光っ て いる 部 分 の み が 表 示さ れ ま す . つま り , 
方 で も 真っ 黒部 分 は 真っ 黒 に な り 抜け て し まい ます . 


OR を 取る と , どちら か - 方 で も 光っ て いる 部 分 が 表示 され ます . これ に よ 
り 。 両方 の 絵 が 合わ きっ て 表示 され る こと に な り ま す . 


“本 格 的 重ね 合わ せ " の 特徴 


"本格 的 重ね 合わ せ " の 特徴 と し て は , 次 の よう な 点 が あげ られ ます . 
まず 長所 と し て , 下 の 絵 を 選ば な いた め , 背景 と 敵 の キャ ラク タ の “重ね 合 】 
せ " を や っ て 8。 その 上 に 味 放 の キャ ラク ク を 義 わ な わせ る こと が で きま す 
そし て , 遠景 , 近 景 と 多重 スク ロー ル さ せる こと が 可能 で す . また , “重ね 合わ 
せ " の 順番 を 変え る こと に より , 木 の 向こう 側 を キャ ラク タ が 通過 で きる な と 立 
体感 が 増し ます . 
短所 を あげ る と , “重ね 合わ せ " 前 の 絵 を 持っ て お か な く て は いけ ませ ん . ま 
た , プロ グラ ム 処 理 に 時 間 が か か り ま す . 


文 カラ ー ロ 絵 
p.1 参 照 


KASANE (本 格 的 重ね 合わ せ の 原理 ) 
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“重ね 合わ せ " は 難し いや 


を “ 超 手抜き 型 重 ね 合わ せ " 


“本 格 的 重ね 合わ せ " は 上 手 に 使え ば , 相当 高度 な こと が で きま す . で も , 面 
倒 な の も 事実 で す . そこ で , “ 超 手抜き 型 重 ね 合わ せ " を や っ て み ま し ょ う . 
原理 は いた っ て 簡単 で す . “重ね 合わ せ " と いう の も 若 二 気 は ず か し く な っ て 
し まい ます . まず , 下図 を 見 て くだ さい . 


超 手 抜き 型 重ね 合わ せ 


や り 方 と し て は , も う あ ら か じ め “ 重 ね 合わ せ " を 行っ た 絵 を 何 種 類 も 背景 に 
合わ せ て 用 意 し て お く 方 法 で す . 背景 に な に が 来る か を 読み 取り , それ に 合わ 
せ た キ ャ ラク タ の 絵 を 表示 し ます . 


* 超 手抜き 型 重ね 合わ せ "の 特徴 

この や り 方 で す と , 毎回 重ね 合わ せ を する 必要 が あり ませ ん . 

欠点 と し て , あら か じ め い ろ い ろ な 場合 の 絵 を 作っ て お か な く て は な り ま せ 
ん 


ヴァ ー/ た < さん 
あっ > て わが ら な いよ て 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


作成 "MAZE 


| 


ひと ころ , 巨大 迷路 が は や り ま し た . 大 き な 迷 路 の 中 を みん な そろ っ て ウロ 


ウロ と , な か な か 楽し か っ た の で す が , あちこち に で き 過 ぎ て , あき られ て し 
まつ 7 も よう の 7G0。 
ゲー ム の 中 に も , 『 パ ッ ク マ ン 』.『 ロ ー ド ラン ナー」 な ど , 通れ る 所 と 通れ な 


い 所 の ある 迷路 型 の ゲー ム が 1 つの ジャ ン ル を 形作っ て いま す . 今度 は 。 この 
迷路 に 挑戦 し て み ま し ょ う . 


MAZE と は , 英語 で 迷路 の こと で す . 


文 カラ ー ロ 絵 
P.1 参照 


rMAZE,。( 迷 路 ゲ ー ム ) 
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迷路 の 作成 "MAZE" 


キャ ラク タ が ある 方 向 に 動け る か どう か と いう の は , 一 見 簡単 そう で , 実は 
難 か し い 問 題 で す . 周り の 色 を 見 て , 壁 の 色 な ら 通 れ な いよ うに する と いう 方 
法 な ども あり ます が , ゲー ム の 中 に は , 通り 抜け られ る 秘 富 の 壁 が あっ た り し 
て , そう は 簡単 に は いき ませ ん . また , ゲー ム の 中 に は 面 の 数 を 争っ て いる も 
の も あり , 数 百 面 な ど と いう ゲー ム も あり ます . この 面 の 絵 す べ て を 絵 で 持っ 
て いる と し た ら , ハー ド デ ィ スク で さえ 一 杯 に な っ て し まい , と て も 普通 の デ 
ィ ス ク な ど で は 収まり ませ ん . 

そこ で 出 て くる の が , 地形 デー タ と いう 考え 方 で す . 

MAZE の プロ グラ ム に 取り か か る 前 に , この 地形 デー タ と いう 考え 方 に つい 
で て 見 で み ま し ょ う 。 

尋 地 形 デ ー タ 

すべ て の 場面 の 絵 を , 全部 絵 の ま ま の 形 で 保存 し よう と する と , ディ スク が 
いく ら あ っ て も 足り ませ ん . また , その 場所 が 通れ る か どう か と いう 判定 も 非 
常に 面倒 に な っ て し まい ます . そこ で , ゲー ム で は 地形 デー タ と いう 考え 方 を 
使っ て いま す . 

まず , 画面 の 中 を 多数 の 小さ な 四角 形 . また は 六角 形 の あつ まり に 分 割 し ま 
す . 分 割 し た あと , その お の お の が どう いう 地形 か を あら か じ め 決 め て お いた 
数 字 や 文字 で アー タ と し て 持つ よう に し ます . 

絵 を か く と き は , この デー タ を 見 て 対応 する マス 目 に 必要 な 色 を 塗っ た り , 
そこ に 対応 する キャ ラク タ を PUT し た り し ます . 


DATA_ 1 1 1 
DATA 1 0.2 
DATA_0,_0._2 


地形 デー タ 

地形 デー タ は 上 図 の よう に , デー タ の 数 字 だ け を その 面 の デー タ と し て 保存 
し て お きま す . 画面 に 絵 を か く と き に は , あら か じ め 決 め て お いた ルー ル に 徒 
っ て , 1 に 対応 する 位置 に は 森 の キャ ラク タ , 0 に は 草原 , 2 に は 水 , と いう 
よう に , 対応 する 適切 な 絵 を 表示 し ます . 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


また , 移動 に 際 し て は , た と えば , 戦車 の 場合 「 移 動 し よう と する 方 向 の デ 
ー タ が 2 の 場合 は 移動 で き な い 』 と いう よう に デー タ に より , 移動 で きる か で 
き な い か を 決め ます . 

また , 地形 に より 移動 で 消費 する エネ ルギー を 変え る こと に より , 道路 な ら 
遠く まで いけ る が , 森 だ と 少し し か 進め な いと いう よう に 使う こと も で きま す . 

さら に , デー タ の 数 字 を 工夫 し て , た と えば デー タ を 3 と し て お く と , 壁 の 
絵 は 表 示す る けれ ど 移 動 は で きる な ど と し て お き , 通り 抜け で きる 秘密 の 迷路 
な ど と いう も の も 作れ ます . 

この や り 方 だ と , 何 十 面 。 何 百 面 と いう 面 や 、 広 大 な マッ プ を 持つ 世界 を 作 
っ て も , 必要 な デー タ 量 は か な り 少 な く て 済み ます . 

地形 デー タ の 考え 方 が わか っ た と ころ で , それ を 応用 し た パソ コン の 中 の 巨 
大 迷路 MAZE. BAS に 挑戦 し て み ま し ょ う . 

例 に よっ て 主人 公 EXDELIC, レン ガ BRICK, 水 WATER の 絵 が 必要 に な り 
ます . あら か じ め プ ログ ラム CGCENE.BAS を 使っ て 作っ て お いて くだ さい . 


文 カラ ー ロ 絵 p. 2 参照 


主人 公 EXDELIC BRICK( レ ン ガ 壁 ) WATER( 水 面 ) 
(エッ クス デリ ッ ク ) 


名 前 さえ 上 の 名 前 で セー ブ し て あれ ば , お 姫 様 で も 王子 様 で も 狼 男 で も 構い 
ませ ん . 

MAZE.BAS 本 体 は 131 ペ ー ジ 以降 に の っ て いま す . 

プロ グラ ム 入 力 の 前 に は , 13 ペ ー ジ の 注意 を よく 読ん で か ら 入力 し て くだ さ 
い 。 

細か く 説 明 す る と , ペー ジ が いく ら あ っ て も 足り ませ ん . そこ で , ここ で は 
と くに 大 事 な エ ッ セ ンス に つい て 説明 し ます . 

先程 と りあ げた 地形 デー タ は , プロ グラ ム の 最後 に DATA の 形 で 持っ て い 
ます . 
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迷路 の 作成 "MAZE" 


ゼロ 


6 
か 
し 半 


5 が レン が, 


0 が 通り 抜け の で きる 道 , 


こ 見 えま す が , 
周り を 9 で 囲っ て ある の は , 一 番 端 に きた と き ( 


単なる 数 字 の ら 列 ( 
が 水 を 表し て いま す . 


こそ こ 


ー を 起 


デー タ が な いと エラ 


いこ 


ら 先 の デー タ を チェ ッ ク す る た めで す . 


し 5 


デー タ は パソ コン が 許す 限り 大 きく する こと が で きま す . 


し , 必ず 周り を 通り 抜け の で き な い 値 で 囲む の を 


の か 目 う に 。 


\ー 


て ー 
り 


忘れ な いで くだ さい . 


する と , ひと めで 良く わか り ま 


【 


と 同じ 形 


ノン 
ク 


デー タ の 並び 方 を 地 
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デー タ の まま で は , 扱い 方 が 難し い の で , 配列 に 一 度 デ ー タ を し まっ て や る 
と , あと の 取り 扱い が 楽に な り ま す . MAZE.BAS プ ログ ラム で は , 131 ペ ー ジ 
の 13 行 目 以 下 の 部 分 が デー タ を 配列 MAZE に 取り 込む た め の 部 分 で す . 


MAZEHATI. BAS プ ログ ラム 
DIM MAZE(TATEMAX,。 YOKOMAX) AS INTEGER 
FOR { = 0 TO TATEMAX - 1 
FORJ = 0 TO YOKOMAX - 1 


READ MX 

MAZR%(T, J) = MK 
NEXT 
NEXT 


次 に , 以下 の 部 分 で 必要 な 絵 を 画面 上 に か いて いき ます . これ は , 画面 を 横 
20※ 縦 12 の 領域 に 分 け , 現在 の 位置 を 中 心 に 先程 の 配列 の 値 を 読み に 行き , そ 
の 値 FX を チェ ッ ク す る プロ グラ ム で す . そし て , FX の 値 が 5 な ら 対応 する 位 
赴 に レン ガ の 絵 を か きま す . また , FX の 値 が 6 な ら ば , 対応 する 位置 に 水 の 絵 
を か きま す . 


MAZEDRAW. BAS プ ログ ラム 
FOR 1 = STARTI + 1 TO STARTI + 12 
FOR J = STARTJ + 1 TO STARTJ + 20 
FX = MAZE%(I, J) 


IF FX = 5 THEN PUT ((J - STARTJ - 1) * 32, (I - STARTI - 1) * 32), BRICK% 
IF FX = 6 THEN PUT ((J - STARTJ - 1) * 32, (1 - STARTI - 1) * 32), WATER% 
NEXT 
NEXT 


迷路 プロ グラ ム の キー 入力 

この キー 入力 ルー チン が , ある 場所 に 移動 で きる か どう か の 秘 富 で す . いま 
まで の キー 入力 ルー チン で は , 数 字 キ ー を 押す と , すぐ に その 方 向 に 移動 し て 
いま し た . と ころ が , この ルー チン で は , その 方 向 に いけ る か どう か を 確認 
て , いけ る 場合 に の み 移 動 し ます . 

で は , 実際 に その 部 分 を 見 て 見 まし ょ う . MAZE.BAS の KEYCHECK: と な 
っ て いる サブ ルー チン の 中 を 見 て くだ さい . この サブ ルー チン の 中 の 4 行 目 で , 
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MAZEKEY. BAS プ ログ ラム 

KEYCHECK: 

C$ = INKEY$ 

IF C$ = "" THEN GOTO KEYCHECK 
IF C$ = "8” AND MAZE(B - 1, ・ ・ GOSUB MOVE 
IF C$ = "2” AND MAZE(B+1, こ ・ GOSUB MOVE 
IF C$ = "4” AND MAZE(B, A - 8 ・ GOSUB MOVE 


IF C$ = "6” AND MAZE(B, A+ < ・ GOSUB MOVE 
IF C$ = "Q"” THEN END 
IF C$ = "q” THEN END 
IFA= 24 THEN GOTO GOAL 
GOTO KEYCHECK 
END 


IF C$ = "8" AND MAZEB - 1, A) < 5 THEN 


と な っ て いま す . この AND は その 前 の 条件 と , あと の 条件 が 同時 に 満足 され る 
と きだ け , THEN 以下 の 命令 を 実行 し な さい と いう 意味 で す . 
つま り , 上 に 移動 する た め に は , まず 8 の キー が 押さ れる こと が 必要 で す . 

それ と 同時 に , MAZE(B - 1,A) < 5 が 必要 に な り ま す . B は 現在 キャ ラク 
タ の いる 縦 位置 , A は 横 位置 を 配列 の 中 で ボボ す 値 で す . 上 に 行く に は , MAZE 
(B_- 1, AA) つま り , MAZE と いう 配列 の 現在 いる 位置 より 1 つ 上 に 当たる 部 分 
の 数 字 を チェ ッ ク し ます . この 数 字 が 5 より 小さ いと きのみ , AND の 後ろ 側 
の 条件 が 成立 し ます . つま り , キャ ラク タ を 上 に 動か す た め に は 数 字 キ ー の 8 
を 押す の と , いま いる キャ ラク タ の 1 つ 上 側 の 配列 の 値 が 4 以下 と が 同時 に 必 
要 で す . ここ で , 5 を レン が ガ , 6 を 水 と いう よう に 5 以上 の 数 字 に 割り 当て て 
お け ば , レン ガ や 水 の 部 分 は 通れ ませ ん . 


MAZE. BAS プ ログ ラム 
SCREEN 88,3, 1, 1 
CLS 
WINDOW SCREEN (0, 0)-(639, 399) 
DIM SHOUKYO%(800) 
GET (0, 0)-(31, 31), SHOUKYOX% 
STARTJ = 0: STARTI = 2 
A= STARTJ+ 10: B = STARTI+6 
E=(A-STARTJ- 1): F = (B - STARTI - 1) 
PUT (C * 32, D * 32), SHOUKYOX%, PSET 
C=E:D=FE 
TATEMAX = 29 
YOKOMAX = 26 
DIM MAZE(TATEMAX, YOKOMAX) AS INTEGER 
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FOR [ = 0 TO TATEMAX - 1 
FOR J = 0 TO YOKOMAX - 1 
READ MX 

MAZRX(I, J) = 史 
NEXT 
NEXT 


DIM BRICK%(800) 
DEF SEG = VARSEG(BRICKX(0)) 
OFFSETX = VARPTR(BRICKX%(0)) 
BLOAD "BRICK.GRA", OFFSET% 
DE SEG 

DIM WATER%(800) 
DEF SEG = VARSEG(WATER%(0)) 
OFFSET% = VARPTR(WATERX(0)) 
BLOAD "WATER.GRA",。 OFFSETX 
DEF SEG 

DIM KZ%(800) 
DEF SEG = VARSEG(KZ%(0)) 
OFESETX = VARPTR(KZ%(0)) 
BLOAD "EXDELIC.GRA", OFFSET% 
DEF SEG 


IF STARTJ > YOKOMAX - 22 THEN STARTJ = YOKOMAX - 22 


IE STARTJ < 4 THEN STARTJ = 0 


IF STARTI > TATEMAX - 14 THEN STARTI = TATEMAX - 14 


IF STARTI < 4 THEN STARTI = 0 
FOR 1 = STARTI + 1 TO STARTI + 12 
EOR J = STARTJ + 1 TO STARTJ + 20 
FX = MAZEX(I, J) 
IF FX = 2 THEN PUT ((J - STARTJ - 1) * 32, 
IF FX = 5 THEN PUT ((J - STARTJ - 1) * 32, 
IE FX = 6 THEN PUT ((J - STARTJ - 1) * 32, 
NEXT 


に 


A 一 


上 昌 
し 


STARTJ - 1): F = (B - STARTI - 1) 
= 

32, D * 32), SHOUKYO%, PSET 

* 32, F * 32), KZ% PSET 


の 中 


EE 


4 


CK: 

NKEY$ 

= "THEN GOTO KEYCHECK 

IF C$ = "8" AND MAZE(B - 1, 4 
IE C$ = "2” AND MAZE(B+ 1 4 
"4" AND MAZE(B。A - 1 
"6” AND MAZE(B、A+1 


1 
* 


トントン ドン ドン 
へ へ ヘス ヘ へ 


(I - STARTI - 1) * 32), BRICK% 
(I - STARTI - 1) * 32), BRICK% 
(I - STARTI - 1) * 32), WATER% 


迷路 の 作成 MAZE" 


人 に 商人 仙人 、 二 5 
2 
人 
人 
の 
2 
2 
人 0 は 條 3 る) コミ る 22 に 
2 
2 
6 
人 


2 


YOKOMAX 


2 


人 


っ 


GOAL 


LOCATE 11, 35: PRINT "CONGLATULATION" 


ーー 
9 
2 


2 
ee 
2 


2 


AND A > 7 THEN STARTJ = STARTJ - 5: GOTO START 
0 AND (TATEMAX - B) > 4 THEN STARTI = STARTI + 4: GOTO START 


AND B > 4 THEN STARTI = STARTI - 4: GOTO START 


2 


11 THENF = 11 


DF 


2 


ざ の で 


=19THENE=19 


<0THENF=0 


2 


IFE > 16 AND (YOKOMAX - 4) > 7 THEN STARTJ = STARTJ + 6: GOTO START 


IF B > TATEMAX - 1 THEN B = TATEMAX 


E=(A-STARTJ-1):F = (B - STARTI - 1) 


PUT (C * 32, D * 32), SHOUKYO%, PSET 


IFA く 1THENA=1 
IF A > YOKOMAX - 1 THEN A 


IFB く 1THENB=1 
PUT (10 * 32, 10 * 32), KZ%, PSET 
9 
5 
0 
5 
0 
5 
0 
0 
0 
0 
0 
0 
0 
0 
5 
0 
0 
0 
5 
0 
5 
0 
0 
5 
0 
5 
0 
5 
9 


S 
還 
に "| 
ら 
ぐ 
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ご 
* ゴ 
邑 
に 
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ス 対 ゲド バ 」 


※“ ロ ー ル プレ イイ ング ゲー ム " 

で は , ここ で キャ ラク タ が , 荒野 や 城 の 中 を 動き まわ り , 宝 を 探す "ロー ルプ 
レイ イン グ ゲ ー ム "に 挑戦 し て み ま し ょ う . 

この 中 に は , 広大 な マッ プ の 作り 方 , マッ プ へ の いろ いろ な 物 の 表示 , 画面 
に ウィ ンド ウ を 作り , その 中 で 処理 を 選択 する や り 方 , 荒野 の 中 か ら 城 の 中 に 
入る 場面 の 作り 方 , 室 バ コ な ど “" ロ ー ル プレ イイ ング ゲー ム "に 必要 な 要素 が ギ 
ッ シ リ と 詰まっ て いま す . あな た に と っ て , きっ と 役に立つ こと と 思い ます . 

で は , 「 勇 者 よ プ ログ ラム の 中 に 旅立つ が 良い .」 

この プロ グラ ム は , 大 分 本 格 的 に な っ て きた だ け に , いろ いろ な グラ フィ ッ 
クス を 多用 し て いま す . 日 絵 1- 4 ペー ジ を 参考 に , CGENE.BAS を 使っ て 
キャ ラク タ を か いて くだ さい . 同じ 城 な ら 城 の 絵 で あっ て , 名 前 さえ 同一 名 で 
セー ブ し て あれ ば , 動作 に は 支障 が あり ませ ん . あな た 自身 の 世界 を 作り 上 げ 
て くだ さい . 

絵 を か き 終 わっ た ら , 145 ペ ー ジ か ら の DLVSGD.BAS の プロ グラ ム を 入力 
し , 保存 , 実行 し て みて くだ さい . 

プロ グラ ム 入 力 の 前 に 13 ペ ー ジ の 注意 を よく 読ん で か ら 入 力 し て くだ きい . 


この プロ グラ ム で の 物語 は , ゲ ー ム と し て は 未完 成 で す ( ゲ ー ム と し 
て 完結 きせ る と , あと 何 十 ペー ジ も リス ト が 増え て し まい ます ). 


た だ し , ウィ ンド ウ の 作り 方, フラ ッ グ の 立て 方 , ウィ ンド ウ を 使っ た 命令 , 
広大 な マッ プ の 作り 方 , 他 の 場所 へ の 瞬間 移動 みな ど と お よそ “ロー ルプ レイ イン 
グ ゲ ー ム "と し て 必要 な 機能 は すべ て 盛り 込ん で あり ます . 
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『 デ ライ ス 対 ゲ ド バ 』( ロ ー ル プレ イイ ング ゲー ム ) 


あと は , あな た 自身 の アイ デア で , マッ プ や 敵 を 作り , 世界 中 に 1 つ し か な 
いあ な た 自身 の ゲー ム を 作っ て くだ さい . 友達 に 見 せ て , 「 俺 が 作っ た ん だ よ 」 
と いえ ば 尊敬 され る こと は 間違い あり ませ ん . 

145 ペ ー ジ か ら の DLVSGD.BAS の プロ グラ ム を 見 て くだ さい . この プロ グ 
ラム の 位置 と 周囲 の 表示 の 部 分 は , 前 に 書い た MAZE.BAS の プロ グラ ム と 良 
〈 似 て いま す が , 1 つ だ け 大 きく 違う と ころ が あり ます . まず , 145 ペ ー ジ 20 行 
目 の DIM の 部 分 で す が , 配列 の 要素 を 数 字 で は な く ス トリ ング , つま り 文 字 
@ し て 宣言 し て いま す . 

148 ペ ー ジ の 14 行 目 以下 の 部 分 に お いて も, FX$ と 文字 と し て 読み 出し , ま た , 
FFX$ = "1" と , 文字 と し て 比較 し て いま す . 


DLYOMIDA. BAS プ ログ ラム 
FOR 1 = STARTI + 1 TO STARTI + 12 
FOR J = STARTJ + 1 T0 STARTJ + 20 

FX$ = MAZE$(T, J) 
IT FX$ = "1" THEN PUT ((J - STARTJ - 1) * 32, (I - STARTI - 1) * 32), GRASS%, PSET 
IT FX$ = "4" THEN PUT ((J - STARTJ - 1) * 32, (1 - STARTI - 1) * 32), WATER%, PSET 
IF FX$ = "5" THEN PUT ((J - STARTJ - 1) * 32, (I - STARTI - 1) * 32), TREE%, PSET 


IT FX$ = "6" THEN PUT ((J - STARTJ - 1) * 32, (I - STARTI - 1) * 32), CASTLLB%, PSET 
IF EX$ = "7" THEN PUT ((J - STARTJ - 1) * 32, (1 - STARTI - 1) * 32), CASTLLT%, PSET 
IF FX$ = "8” THEN PUT ((J - STARTJ - 1) * 32, (I - STARTI - 1) * 32), CASTLRT%, PSET 
IF FX$ = "9" THEN PUT ((J - STARTJ - 1) * 32, (1 - STARTI - 1) * 32), CASTLRB%, PSRET 
IT FX$ = "A" THEN PUT ((J - STARTJ - 1) * 32, (I - STARTI - 1) * 32), BRICK%, PSET 
IF FX$ = "K" THEN PUT ((J - STARTJ - 1) * 32, (I - STARTI - 1) * 32), KING%, PSET 
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文 カラ ー ロ 絵 p. 2 一 3 参照 


PINKSS (ピン ク 地 に 直立 ) PINKSR (ピン ク 右 足 上 げ ) PINKSL (ピン ク 左 足 上 げ ) 


WATER( 水 ) 


CASTLRB ( 城 。 右 下 ) 


BRICK (レン ガ 壁 ) 


CASTLRT( 城 。 右上 ) 
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廊 カラ ー ロ 絵 p. 3 参照 


KING( 王 様 ) 


城中 の 王様 と デラ イス 


こう や っ て , 文字 と し て 比較 する こと に より , 0 9 まで の 数 字 で 示す より 
は る か に 多く の 地形 や 人 , 物 な ど を 表示 させ る こと が で きま す . アル ファ ベッ 
ト の 文字 は , 大 文字 , 小文字 の 区 別 が あり ます し , その 他 , カタ カナ 。 グラ フ 
ィ ッ ク 文 字 な ど , 表示 で きる 文字 の 数 だ け 区 別 す る こと が で きま す . 4 
桁 の 数 字 で 表し て も 良い の で す が , デー タ 文 を 見 た と き に , ひと めで 何 に な 
の か が わか り に くく な り ま す . また , 広い マッ プ を 作る と き に , 半 1 
5 に る 可能 性 が あり ます . そう な る と , マッ プ に 当 た 
る デー タ 部 分 を 見 た と き , 非常 に わか り に くく な り ま す . 


「 ム ム , あの 旗 は 」 
「 ハ ハー, 楠木 正成 に ご ざい ます 」 
(まぎらわしい や つ に は 旗 を 持た せよ う ) 


昔 の 戦い で は , みな 自分 の 軍団 に 旗 を 持た せま し た . 同じ よう な 姿 で 戦っ て 
いる の で , 目印 が な けれ ば 敵 か 味方 か わか り ま せん . また , あと で 恩賞 の きた 
の と き に も , 自分 が 活躍 し た の を アピ ー ル し て お か な く て は な り ま せん . そこ 
で , 鎧 を 真 林 に し た り , 旗 を 立て た り . いろ いろ と 工夫 し まし た . 有名 に な る 
2 DGP ビッ て け 抽 し た り よ る 交 東 も あっ な よう で す 


まぎらわしい ヤツ に は 。, 
旋 を 持た せよ う 


MIKATA BLIFE=0 2 MIKATAALIFE=1 
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プロ グラ ム の 世界 で も , この 旗 が 活躍 する の で す . いろ いろ な 事象 が どう な 
っ て いた か を 管理 する の は , プロ グラ ム が 複雑 に な る と 非常 に 難 し く な り ま す . 
そこ で , ある 事象 が 発生 し た ら , ある 変数 の 値 を 変え て 旗 を 上 げ さ せま す . 

次 に , その 事象 が 起き て いる か どう か を 判定 する 必要 が で きた と き に は , そ 
の 旗 が 上 が っ て いる か どう か を チェ ッ ク し て や れ ば 良い わけ で す . 

この や り 方 は 。 と くに 事象 の 発生 と , それ に 依存 する イベ ント が プロ グラ ム 
の 中 で 非常 に 離れ ん た と ころ で 起こ る と き に , と くに 有効 で す . 

し か し , 実際 に 旗 を 上 げ る わけ に は いき ませ ん か ら , プロ グラ ム の 中 で は , 
次 の よう に 処理 を し ます . 

まず , 初期 設定 で ある 変数 を 0 また は 1 に し て お きま す . ある 事象 が 起き た 
ら 。 そ の と き に 0 を 1 に , また は 1 を 0 に 変え ます 、 チ ェ ッ ク す る ルー チン で 
は 。 その 変数 が 1 か 0 か を 見 て , その 事象 が 起き た の か どう か を 調べ て それ に 
応じ た 処理 を 行い ます . 

で は 。 この 旗 ( フ ラッ グ ) の 原理 を 使っ た 移動 ルー チ ン に つい て 見 て み ま し ょ 
う . 149 ペ ー ジ 下 か ら 3 行 目 か ら 150 ペ ー ジ 19 行 目 ま で , 以下 の 部 分 を 見 て くだ 


CHANGEDL. BAS プ ログ ラム 
IFB>=4ANDB<7ANDA>=12ANDA<=15ANDTOWN = 0 THEN 
FOR { = 0 TO TATEMAX - 1 
FOR J = 0 TO YOKOMAX - 1 

MAZE$(T, J) = MACHIA$(T。 J) 


NEXT 

NEXT 

TOWN = 1 

STARTI = 22 
STARTJ = 5 

OLDA = STARTJ + 1 
OLDB = STARTI + 1 

A= 16 

B = 26 
FORI=0T70800 
EXDESR%(I) = PINKSR%(I) 
NEXT I 
FORI=0T0800 
EXDESL%(I) = PINKSL%(1) 
NEXT I 

FLOORCOLOR = 5 

GOTO START 

END IF 
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ここ で は , TOWN=0 と いう 旗 (FLAG) が 出 て きま す . 最初 に 初期 設定 で 
TOWN の 値 は 0 に セッ ト し て あり ます . これ は , 主人 公 『 デ ライ ス 」 が , 町 の 
外 に いる こと を 示し て いま す . つま り , 主人 公 が 外 に いて , A と B の 値 が あら 
か じ め 定 め ら れ た 値 で ある 城 の 前 の 位置 に な る 場所 に 移動 し て 来 た と き , 
THEN 以下 の 部 分 に 移り ます . THEN 以下 の 部 分 で は , MAZE$(I, J) と いう 
配列 の 中 の すべ て の 要素 を , MACHIA$(I. J) と いう 配列 と 入れ 替え て いま 
す . つま り , こう する こと で , 地形 の 元 と な る デー タ を 全部 取り 替え て し まい 
まま の 

その 後 , GOTO_START と いう 部 分 で 最初 の 書き 替え ルー チン に 飛ば し て , 
絵 を 全面 的 に か き 直 し て いま す . 

この 方 法 を 使え ば , お 城 の 中 の 階段 の と ころ に 来 た ら 2 階 に 移動 する と か , 
洞くつ の 入口 に 立つ と , 地下 の 大 洞くつ に 入る こと が 簡単 に で きま す . また , 
世界 の ハジ の 方 に 立つ と , また 別 の 世界 と いう よう に メモ リ の 許す 限り , マッ 
プ を 大 きく する こと が で きま すし , デー タ を シー ケン シャ ルフ ァイル に し て デ 
ィ ス ク に し まっ て お き , それ を 必要 に 応じ て 読む せよ うに すれ ば , ディ スク の 容 
量 一 杯 まで 広大 な 世界 を 作る こと も で きま す . 

計 宝 箱 メ ッ ケ 

徳川 家 の 残し た 埋蔵 多数 万 両 。 カリ ブ 海 に 沈ん だ 海賊 船 。 宝 に は 男 の ロ マン 
を くす ぐる も の が あり ます . 中 に は 一 生 , 宝 伝説 に つか れ て 山 を 掘り 続け た り 
する 人 も いま す が , 本 当 に カリ ブ 海 で 沈ん だ 船 を 引き 上 げ , 慕 大 な 財宝 を 手 に 
し た 人 も いま す . 晴 険 と ロマ ン の 世界 で す . 

ゲー ム の 世界 で も , 必要 な アイ テム を 手 に 入れ た り , ゴー ルド が 増え た り と, 
宝箱 は 重要 な 役割 を 持っ て いま す . 

で は , 宝探し に 出かけ まし ょ う . 

まず , 150 ペ ー ジ の 下 か ら 12 行 目 の 部 分 で す . 


TAKARA1. BAS プ ログ ラム 
IF TAKARA] = 0 AND TOWN = 0 THEN GOSUB TAKARACHECK 


同じ と ころ に いっ て , 何 回 で も 宝 が 見 付か る の で は 不 自 然 で す . まず 最初 に , 
TAKARA] = 0 と し て 設定 し て お きま す . ここ で 宝 1 が 捕 ら ちら れ る まで は 変数 
TAKARA1 の 値 は 0 で す . そこ で , TAKARA1 = 0 で , か つ デ ライ ス が 外 に 
いる , つま り TOWN 変数 が 0 の と き に だ け , TAKARACHECK の サブ ルー 
チ ナン に 飛ん で 行か せま す . 
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で は , サブ ルー チン TAKARACHECK で は 何 を や っ て いる の で し ょ う . 
151 ペ ー ジ の 下 か ら 21 行 目 以 下 の 部 分 で す . 


TAKARA2. BAS プ ログ ラム 
TAKARACHECK: 
IFA=10ANDB=10 THEN 
PUT ((A - STARTJ) * 32, (B - STARTI - 1) * 32), TAEARAC%, PSET 
GET (10, 20)-(80, 150), TEMPO% 
GET (200, 40)-(470, 110), TEMP02% 
LINE (10, 20)-(80, 150), 0, BF 
LINE (10, 20)-(80, 150), 7, BF 
LINE (11, 21)-(79, 149), 0, BF 


CLS 2 
LOCATE 3, 5: PRINT "OPEN" 
LOCATE 4, 5: PRINT "TAKE" 
LOCATE 5, 5: PRINT "USE" 
LOCATE 6, 5: PRINT "END" 
DO WHILE 1 
WINDOW2: 

LOCATE ARROW, 3 

PRINT "*' 


WINDOWKEY$ = INKEY$ 
IF WINDOWKEY$ = "” THEN GOTO WINDOW2 
WINDOWKEY1 = ASC(LEFT$(WINDOWKEY$, 1)) 
WINDOWKEY2 = ASC(RIGHT$(WINDOWKEY$, 1)) 
IF WINDOWKEY] = 0 AND WINDOWKEY2 = 72 THEN 
ARROW = ARROW - 1: OLDARROW = ARROW + 1 
END IF 
IF WINDOWKEY] = 0 AND WINDOWKEY2 = 80 THEN 
ARROW = ARROW + 1: OLDARROW = ARROW - 1 
END IF 
IF ARROW >= 7 THEN ARROW = 3 
IF ARROW <= 2 THEN ARROW = 6 
IF ARROW = 3 THEN WINSELECT = 1 
IF ARROW = 4 THEN WINSELECT = 2 
IF ARROW = 5 THEN WINSELECT = 3 
LOCATE OLDARROW, 3 
PRINT CHR$(251) 
LOCATE ARROW、3 
PRINT "*" 
IF WINDOWKEY1 = 13 THEN 
WINSELECT2 = WINSELECT 
IF WINSELECT2 = 1 THEN 
PUT ((A - STARTJ) * 32, (B - STARTI - 1) * 32), TAKARAG%, PSET: TAKARA1 = 1 
END IF 
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IF WINSELECT2 = 2 THEN 
PUT ((A - STARTJ) * 32, (B - STARTI - 1) * 32), TAKARA0%, PSET: TAKARA1 = 1 
LINE (200, 40)-(470, 110)。 0, BE 

LINE (200, 40)-(470, 110), 7, B 

LINE (201, 41)-(469, 109), 7, B 

LOCATE 5, 30 

PRINT " デ タ 2 ル 1000 マー 中 だ 化 2。 " 

END If 
IF WINSELECT2 = 3 THEN EXIT DO 


PUT (10, 20), TEMPO%. PSET 


PUT (200, 40), TEMPO2%, PSET 
END IF 
RETURN 


2 行 目 ,F A = 10 AND B = 10 THEN で ,『 デ ライ ス 」』 の 居場所 を チェ 
ッ ク し て いま す . これ が , 宝箱 の 隣 に 来 た と き に , それ 以後 の 部 分 を 実行 し ま 
す . 

次 に , この サブ ルー チン で は , 画面 の 上 に 小さ な ウィ ンド ウ を 開き ます . ウ 
ィ ン ド ウ と いう の は , 画面 の 一 角 に , いま まで の 絵 を どけ て な ん ら か の 情報 を 
表示 する も の で す . 通常 は , た だ 情報 を 表示 する だ け で な く , 矢印 キー な ど で , 
な ん ら か の 選択 を する こと が で き , リタ ー ン キー な ど で 選 択 し た 行動 を 行う と 
と も に , ウィ ンド ウ そ の も の が 消え て 元 の 画面 に も どる も の で す . 

で は , 秘 打 ウィ ンド ウ の テク ニッ ク を 紹介 し ます . 

画面 に 四角 く 黒 い ウ ィ ン ド ウ を 表示 する の は 簡単 で す が , 問題 は 元 に も どる 
と き に , 最初 と 同じ よう に も どす こと で す . 


文 カラ ー ロ 絵 pb.3 お よび カバ ー 参 昭 


『 デ ライ ス 対 ゲド バ パ 』 
(ロー ルプ レイ イン グ ゲ ー ム ) 
(画面 に ウィ ンド ウ を 開い て いる と ころ ) 
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その た め に は , まず , DIM TEMPO%(2400) と 配列 を 本 体 で 症 言 し て お き , 
サブルーチン の 4 行 目 で ウィ ンド ウ を 表示 する 直前 に , GET (10, 20) 一 (80, 
150), TEMPO0% と , ウィ ンド ウ を 表示 する 予定 の 場所 の 絵 を 全部 取り 込ん で 
し まい ます . その 後 で , LINE (10, 20) 一 (80, 180), 0. BF と ウィ ンド ウ の と こ 
ろ を 黒 の 四角 で 塗り つぶ し て し まい ます . その 後 , LOCATE 命令 と PRINT 命 
令 を 使っ て , 必要 な 情報 を 表示 させ ます . 

ウィ ンド ウ を 消し た く な っ た 場合 , CLS 2 で 不要 な 文字 を 消し , 最後 に 
PUT (10, 20, TEMPO%, PSET と し て , 前 に 取り 込ん で お いた 絵 を , 同じ 
よう に 表示 し て ウィ ンド ウ を 消し て いま す . 

次 に , ウィ ンド ウ の 中 の ア ケ ル , トル , ツ カ ウ , オ ワ リ な どの どれ を 選ぶ か 
で す が , ARROW と いう 変数 を 使っ て いま す . 前 に 出 て きた キー 入力 の ルー チ 
ン を 使っ て , 下向き の 矢印 を 押す と ARROW の 値 が 1 つ 増 える よう に し ます . 
た だ し , 6 より 大 きく な る と 3 に も どる よう に ARROW >= _7 THEN_ 
ARROW = 3 の 行 を 加え て いま す . 上 向き の 矢印 を 押す と , ARPOW の 値 が 
1 つ ず つっ 減る よう に し て いま す . これ も , 2 以下 に な る と 6 に も どる よう に , 
IF ARROW <= 2 THEN ARROW = 6 の 行 を 加え て いま す . ま た , こ の あ 
と で , LOCATE ARROW, 3:PRINT "*”" の 命令 で , 現在 どの 命令 を スタ ン バ 
イ し て いる か を ※* で 示さ せ て いま す . 

この まま で は , 前 に 描い た * が 消え な い の で , 元 の ARROW の 位置 を OL 
DARROW と し て , そこ に PRINT_CHR$(251) と し て いま す . この CHR$(281) 
と いう の は , 通常 キャ ラク タ に 付け られ た 各 番 号 に は 対応 する 文字 が ある の で 
す が , この 番号 に 対応 する 文字 は な く , この 文字 を プリ ント する こと で 前 の 字 
を 消す こと が で きま す . 

次 に , ARROW の 値 に 応 し て ウィ ンド ウ を 使っ て や ら せ よ うと する 仕事 を 分 
け て いま す . 

まず , IF ARROW = 3 THEN WINSEIECT = 1 の よう に や る べき 仕事 
WINSELECT の 値 を 変え ます . 

次 に , IF WINDOWKEY1 = 13 つま り , リターン キー を 押し た 時 に 初め て 
WINSELECT 2 に WINSELECT の 値 が 読み 込ま れ , その 値 に より 次 の 行動 を 
行う よう に な っ て いま す . 

あと は , 宝箱 を 開け る と いう 命令 に * を 合わ せ て リタ ー ン キー を 近 す と , 宝 
箱 が 開い て 中 に 金貨 が ある 絵 を 表示 し , トル と いう 命令 に * を 合わ せ て リタ ー 
ン を 押す と , 宝箱 は 開い て は いる が 金 貨 が な く な っ た 絵 を 表示 し て 合わ せ て “ ゴ 
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ー ル ド " が 増え た と いう 文字 を 表示 させ , 変数 GOLD の 値 を 増加 させ て いま 
ER 

最後 の 方 で , TAKARA1 = 1 と し て , 次 に 同じ 場所 に 来 て も , も う TAKAR 
ACHECK の ルー チン に 行か な いよ うに し て いま す . これ に より 同じ 場所 に 行 
く と, いつ も 同じ 室 が 出 て くる の を 防い で いま す . 


最初 の TAKARACHECK に 行く か どう か を 決め る ルー チン の と ころ を , 
IF TAKARA1 < 101 AND TOWN = 0 


と し て お き , TAKARA1CHECK の 最後 の 方 の , 

TAKARA] = 1 を , 

TAKARA] = TAKARA] 十 1 
の よう に 変え る と , 同じ 所 に 行く と 100 回 宝箱 が 出 て き て , 101 回 目 か ら は 出 て 
きま せん . 

この や り 方 は ,『 ス ー パ ー マ リ オ 』 の よう に 同じ と ころ を た だ たたく と , 金貨 が 何 

枚 も 出 て くる が , 規定 の 枚数 出る あと, あと は 出 て こない と いっ た と き に 利用 で 
きま す . 


TAKARAC TAKARAG TAKRAO 
(宝箱 が 閉まっ て いる ) (宝箱 が 開い て 金貨 び 入 っ いる ) (宝箱 が カラ ッ ポ ボ ) 
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「 ド ラゴン クエ スト 』 な ど で は 勇者 が , 右足 を 上 げた り 左 足 を 上 げた り 歩 いて 
いる 状態 を 示し て いま す . 移動 し て いな いと き に も 足踏み を し て いる の は ご 愛 
きょう と いう と ころ で す が , 止ま っ た まま 動か な いよ り は ずっ と まし で し ょ う . 

で は , この 足 を 動か す プ ログ ラム に つい て 説明 し ます . 

149 ペ ー ジ の 5 行 日 以下 に 示す 部 分 が , 足 を 変 互 に 動か す プ ログ ラム で す . 

KOSHTIN. BAS プ ログ ラム 

KEYCHECK: C$ = INKEY$ 


IF TIMECK > 60 THEN TIMECK = 0 
IF TIMECK > 30 THEN PUT (E * 32, F * 32), EXDESR%, PSET 


IF TIMECK <= 30 THEN PUT (E * 32, F * 32),。 REXDESL%, PSET 
TIMECK = TIMECK + 1 
IF C$ = "THEN GOTO KEYCHECK 


この プロ グラ ム は 通常 。 何 の キ ー 入 力も な い 状 態 で は 一 番 最後 の 行 に 来る と 
最初 の KEYCHECK: の 部 分 に ちどり この 間 を ずっ と 繰り 返し て いま す . そこ 
で , TIMECK と いう 変数 を 作り , TIMECK = TIMECK 十 1 と し て 1 回 りこ 
の ルー プ の 中 を 通過 する た びに , その 値 を 1 つ ず つ 増 や し て いき ます . 

その まま で は 値 が 無限 に 大 きく な っ て し まい ます の で , IF TIMECK > 60 
THEN TIMECK = 0 と し て , 60 を 超え た ら 強 制 的 に 値 を 0 に も ち ど し て いま 
す . 

こう や っ て , 変数 TTMECK の 値 を どん どん 増加 させ て いく の で す が , その と 
き に , IF TIMECK <= 30 THEN PUT (E * 32,F * 32). EXDESL%, PSET 
と し て TIMECK が 30 以 下 の と き に は , 左足 が 下 に お り て いる 絵 EXDESL% を 表示 
し , TIMECK の 値 が 31 か ら 60 ま で の と き に は TEF TIMECK > 30 THEN PUT 
(E * 32,F * 32), EXDESR%, PSET 右足 が 下 に お り て いる 絵 EXDESR% を 
表示 させ て いま す . この よう に し て , あたかも 足 を 交互 に 動か し て いる よう に 
見 せ て いま す . 足 を 動か す 速度 は 上 記 の 数 字 を 替え て 調節 し て くだ さい . 

注 )EXDESL と EXDESR の 絵 は , 場所 に よっ て GREENSL, GREENSR ま 

た は PINKSL, PINKSR を 読み 込ん で 使っ て いる の で , と くに キャ ラク タ 
ジェ ネ レ ー タ で 作る 必要 は あり ませ ん . 
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文 カラ ー ロ 絵 p.2 参照 


右足 上 げ 


左足 上 げ 


DLVSGD. BAS プ ログ ラム 
SCREEN 88, 3, 1, 1 
CS 
WINDOW SCREEN (0, 0)-(639, 399) 
DIM TEMPO%(2400) 
DIM TEMPO2%(4900) 
DIM TEMP03%(4900) 
ARROW = 3: OLDARROW = 3 
DIM SHOUKYO%(800) 
GET (0, 0)-(31, 31), SHOUKYOX 
STARTJ = 0: STARTI = 2 
A = STARTJ+10: B = STARTI+6 
OLDA = A: OLDB = B 
E = (4 - STARTJ - 1): F = (B - STARTI - 1) 
PUT (C * 32, D * 32), SHOUKYO%, PSET 
C=E:D=TF 
TATEMAX = 29 
YOKOMAX = 35 
TIMECK = 0 
FLOORCOLOR = 2 
DIM SOTO(TATEMAX, YOKOMAX) AS STRING 
DIM MAZE(TATEMAX。 YOKEOMAX) AS STRING 
FOR { = 0 TO TATEMAX - 1 
FOR J = 0 TO YOKOMAX - 1 
READ MX$ 
SOTO$(I, J) = MX$ 


0 TO TATEMAX - 1 
0 TO YOKOMAX - 1 
MAZE$(I, J) = SOTO(I, 


DIM MACHIA(TATEMAX,。 YOKOMAX) AS STRING 
FOR { = 0 TO TATEMAX - 1 
EOR J = 0 TO YOKOMAX - 1 

READ MX$ 

MACHIA$(I, J) = MX$ 
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NEXT 

NEXT 

DIM GRASS%(800) 
DEF SEG = VARSEG(GRASS%(0)) 
OFFSET% = VARPTR(GRASS%(0)) 
BLOAD "GRASS.GRA", OFFSETX 
DEF SEG 

DIM GREEN%(800) 
DEFE SEG = VARSEG(GREEN%(0)) 
OEESET% = VARPTR(GREEN%(0)) 
BLOAD "GREEN.GRA", OFFSETX 
DEF SEG 

DIM PINK%(800) 
DEF SEG = VARSEG(PINK%(0)) 
OFFSETX = VARPTR(PINKX(0)) 
BLOAD "PINK.GRA", OFESET% 
DEF SEG 

DIM TREE%(800) 
DEF SEG = VARSEG(TREE%(0)) 
OFFSETX = VARPTR(TREE%(0)) 
BLOAD "TREE.GRA", OFESETX 
DEF SEG 

DIM WATER%(800) 
DE SEG = VARSEG(WATERX(0)) 
OFFSETX = VARPTR(WATERX(0)) 
BLOAD "WATER.GRA", OFFSET% 
DE SEG 

DIM CASTLLB%(800) 
DEF SEG = VARSEG(CASTLLB%(0)) 
OFFSETX = VARPTR(CASTLLB%(0)) 
BLOAD "CASTLLB.GRA", OFFSETX 
DEF SEG 

DIM CASTLRT%(800) 
DEF SEG = VARSEG(CASTLRTX(0)) 
OFFSETX = VARPTR(CASTLRTX(0)) 
BLOAD "CASTLRT.GRA", OFESETX 
DEF SBEG 

DIM CASTLLTX%(800) 
DEF SEG = VARSEG(CASTLLTX(0)) 
OFFSET% = VARPTR(CASTLLTX(0)) 
BLOAD "CASTLLT.GRA", OFFSETX 
DEF SEG 

DIM CASTLRB%(800) 
DEF SEG = VARSEG(CASTLRB%(0)) 
OFFSETX = VARPTR(CASTLRBX(0)) 
BLOAD "CASTLRB.GRA", OFFSETX 
DEF SEG 

DIM EXDESR%(800) 

DIM EXDESL%(800) 

DIM GREENSS%(800) 
NAMK$ = "GREENSS" 
DEF SEG = VARSEG(GREENSSX(0)) 
OFFSET2% = VARPTR(GREENSS%(0)) 
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BLOAD NAME$ + ".GRA", OFFSET2% 
DIM GREENSR%(800) 
NAME$ = "GREENSR" 
DEF SEG = VARSEG(GREENSR%(0)) 
OFFSET2% = VARPTR(GREENSR%(0)) 
BLOAD NAMR$ + ".GRA", OFESET2% 
FORI=0T70800 
EXDESR%(I) = GREENSR%(I) 
NEXT I 
DIM GREENSL%(800) 
NAME$ = "GREENSL" 
DEF SEG = VARSEG(GREENSL%(0)) 
OFFSET2% = VARPTR(GREENSL%(0)) 
BLOAD NAME$ + ".GRA", OFFSET2% 
FORI=0T70800 
EXDESL%(I) = GREENSI%(1) 
NEXT I 
DIM PINKSS%(800) 
NAME$ = "PINKSS" 
DEF SEG = VARSEG(PINKSS%(0)) 
OFFSET2% = VARPTR(PINKSS%(0)) 
BLOAD NAME$ + ".GRA",。 OFESET2% 
DIM PINKSRX(800) 
NAME$ = "PINKSR" 
DEF SEG = VARSEG(PINKSRX(0)) 
OFFSET2% = VARPTR(PINKSR%(0)) 
BLOAD NAME$ + ".GRA",。 OFFSET2% 
DIM PINKSL%(800) 
NAME$ = "PINKSL" 
DEE SEG = VARSEG(PINKSLX(0)) 
OFFSET2% = VARPTR(PINKSLX(0)) 
BLOAD NAME$ + ".GRA",。 OFFSET2% 
DIM TAKARAC%(800) 
DEF SEG = VARSEG(TAKARACX(0)) 
OFFSETX = VARPTR(TAKARACX(0)) 
BLOAD "TAKARAC.GRA", OFFSET% 
DEF SEG 
DIM TAKARAGX(800) 
DEF SEG = VARSEG(TAKARAGX(0)) 
OFFSETX = VARPTR(TAKARAGX(0)) 
BLOAD "TAKARAG.GRA", OFFSET% 
DEF SEG 
DIM TAEARAOX(800) 
DEE SEG = VARSEG(TAKARAOX(0)) 
OFFSETX = VARPTR(TAKARAOX(0)) 
BLOAD "TAKARAO.GRA", OFESET% 
DEF SEG 
DIM BRICKX(800) 
DEF SEG = VARSEG(BRICKX(0)) 
OFFSETX = VARPTR(BRICK%(0)) 
BLOAD "BRICK.GRA", OFFSETX 
DEF SEG 
DIM KINGX(800) 
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DEF SEG = VARSEG(KINGX(0)) 
OFFSETX = VARPTR(KINGX(0)) 
BLOAD "KING.GRA"。 OFFSET% 
DEF SEG 


PAINT (200, 200)。 FLOORCOLOR 

IF STARTJ > YOKOMAX - 22 THEN STARTJ = 
IE STARTJ < 4 THEN STARTJ = 0 

IF STARTI > TATEMAX - 14 THEN STARTI = 
IE STARTI く 4 THEN STARTI = 0 

FOR 1 = STARTI + 1 TO STARTI + 12 

FOR J = STARTJ + 1 TO STARTJ + 20 

EX$ = MAZE$(I, J) 

"1" THEN PUT ((J - STARTJ - 1) * 32, 
"4" THEN PUT ((J - STARTJ - 1) * 32, 
"5" THEN PUT ((J - STARTJ - 1) * 32, 
?6"” THEN PUT ((J - STARTJ - 1) * 32, 


= "7”" THEN PUT ((J - STARTJ - 1) * 32, 
"8"” THEN PUT ((J - STARTJ - 1) * 32, 
79" THEN PUT ((J - STARTJ - 1) * 32, 
?A" THEN PUT ((J - STARTJ - 1) * 32, 
"K" THEN PUT ((J - STARTJ - 1) * 32, 


E=(A- STARTJ- 1):F = (B - STARTI - 1) 
CsE:D=F 

REM PUT (C * 32, D * 32), SHOUKYO% PSET 
OLDFX$ = MAZE$(OLDB, OLDA) 


IF OLDEX$ = "0" AND TOWN = 0 THEN PUT ((OLDA - 


1) * 32), GREEN%。 PSET 


IF OLDFX$ = "0” AND TOWN = 1 THEN PUT ((OLDA - 


1) * 32)。 PINK%, PSET 


YOKOMAX - 22 


TATEMAX - 14 


- 1) * 32), 
- 1) * 32), 
- 1) * 32), 
- 1) * 32), 


(I - STARTI 
(I - STARTI 
(I - STARTI 
(I - STARTI 


(I - STARTI - 1) * 32), 


(I - STARTI - 1) * 32), 


(1 - STARTI - 1) * 32), CASTLRB%, PS 


BRICK%。 PSET 
KING%。 PSET 


- 1) * 32), 
- 1) * 32), 


(I - STARTI 
(I - STARTI 


STARTJ - 1) * 32, (OLDB - STARTI - 


STARTJ - 1) * 32, (OLDB - STARTI - 


TE OLDFX$ = "1" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTT - 1) * 32), GRA 


SS%。 PSET 

IF OLDFX$ = "4" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI - 1) * 32), WAT 
ER%。 PSET 

IF OLDFX$ = "5"” THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTT - 1) * 32), TRE 
g。 PSET 

IP OLDEX$ = "6" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI - 1) * 32), CAS 
TLLB%, PSET 

IF OLDFX$ = "7” THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI - 1) * 32), CAS 
TLLTX。 PSET 

IE OLDFX$ = "8" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI - 1) * 32), CAS 
TLRTX%,。 PSET 

TE OLDFX$ = "9" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI - 1) * 32), CAS 
TLRB%, PSET 

TE OLDFX$ = "A” THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI - 1) * 32)。 BRI 
CK% PSET 
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IF OLDFX$ = "K"” THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI - 1) * 32), KIN 
G%。 PSET 
IF TOWN = 0 THEN PUT (E * 32, F * 32), GREENSS%, PSET 
IF TOWN = 1 THEN PUT (E * 32。F * 32)。 PINKSS%, PSET 
KEYCHECK: C$ = INKEY$ 
IF TIMECK > 60 THEN TIMECK = 0 
IF TIMECK > 30 THEN PUT (E * 32, F * 32)。 EXDESR%, PSET 
IF TIMECK <= 30 THEN PUT (E * 32, F * 32), EXDESL%, PSET 
TIMECK = TIMECK + 1 
IF C$ = "THEN GOTO KEYCHECK 
IF C$ = “8” AND MAZE(B - 1, A) く "4" THEN 
A=A:B=B-1]: OLDA=A: OLDB =B+1: GOSUB MOVE 
END IF 
IF C$ = "2" AND MAZE(B+ 1, A) < く "4" THEN 
A=A:B=B+1: OLDA =A: OLDB = B - 1: GOSUB MOVE 
END IF 
IF C$ = "4” AND MAZECB, A - 1) く "4" THEN 
A=A-1:B=B: OLDA=A+1: OLDB = B: GOSUB MOVE 
KND IF 
IFC$ = "6" AND MAZE(B, A+ 1) く "2" THEN 
A=A+1:B=B:OLDA=A-1: OLDB = B: GOSUB MOVE 
END IF 
IF C$ = "7” AND MAZE(B - 1 A- 1) く "4" THEN 
A=A-1:B=B-1: OLDA=A+1: OLDB = B+ 1: GOSUB MOVE 
END IF 
IFC$ = "9" AND MAZE(B - 1, A+ 1) く "4" THRN 
A=A+1:B=B-1: OLDA=A-1: OLDB=B+1: GOSUB MOVE 
END IF 
IF C$ = "1" AND MAZE(B+ 1, A - 1) < く "4" THEN 
A=A-1:B=B+1: OLDA=A+1: OLDB = B - 1: GOSUB MOVE 
END IF 
IF C$ = "3” AND 照 ZECB+ 1 A+ 1) < く "4" THEN 
A=A+1:B=B+1: OLDA=A-1: OLDB=B- 1: GOSUB MOVE 
END IF 
IF ($ = "Q" THEN END 
IF C$ = "q” THEN END 
KEY1 = ASC(LEFT$(C$, 1)) 
KEY2 = ASC(RIGHT$(C$, 1)) 
IF KEY] = 0 AND KEY2 = 75 AND MAZE(B, A - 1) < "24" THEN 
A=A-1:B=B:OLDA=A+1: OLDB = B: GOSUB MOVE 
END IF 
IF KEY]1 = 0 AND KEY2 = 77 AND MAZE(B, A+ 1) < "4" THEN 
A=A+1:B=B: OLDA = A - 1: OLDB = B: GOSUB MOVE 
END IF 
IF KKY1 = 0 AND KEY2 = 72 AND MAZE(B - 1, 4) <"4" THEN 
A=A:B=B-1: OLDA=A: OLDB = B+1: GOSUB MOVE 
END IF 
IF KEY]1 = 0 AND KEY2 = 80 AND MAZE(B + 1, A) < く "4" THEN 
A=A:B=B+1: OLDA=A: OLDB = B - 1: GOSUB MOVE 
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MAZE$(I, J) = MACHIA$T。 の) 


22 

STARTJ = 5 

OLDA = STARTJ+ 1 

OLDB = STARTTI+ 1 
A=16 

B = 26 
EORI=0TO800 
EXDESR%(1) = PINKSR%(1) 
NEXT 1 
FORI=0T0O800 
EXDESL%(I) = PINKSLXI) 


END IE 
IfB>=26 ANDA>=12 AND A<= 20 AND TONN = 1 THEN 
EOR 1 = 0 TO TATEMAX- 1 
TOR J = 0 TO YOKOMAX - 1 
MAZE$(I, J) = SOTO$(I, J) 


OLDA = STARTJ + 1 
OLDB = STARTI + 1 


A= 13 

B=8 

FORI=0TO800 
EXDESRX(I) = GREENSRX(I) 
NEXTI 

EORI=0T0O800 
EXDESL%(I) = GREENSLX(1) 
NEXT I 

FLOORCOLOR = 2 

GOTO START 

END IF 


IE TAKARA1 = 0 AND TOWN = 0 THEN GOSUB TAKARACHECK 

IF TOWN = 1 THEN GOSUB KINGCHECK 

GOTO KEYCHECK 

MOVE: 

IFA<1THENA=1 

IE A > YOKOMAX - 1 THEN A = YOKOMAX 

IFB<1THENB=1 

IE B > TATEMAX - 1 THEN B = TATEMAX 

OLDEX$ = MAZE$(OLDB, OLDA) 

IE OLDFX$ = "0" AND TOWN = 0 THEN PUT ((OLDA - STARTJ - 1) * 32。 (OLDB - STARTI - 
1) * 32), GREEN%, PSET 

IF OLDFX$ = "0" AND TOWN = 1 THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI - 
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1) * 32), PINK%, PSET 

IF OLDFEX$ = "1" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI 
S8%, PSET 

IF OLDFX$ = "4" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI 
ER%, PSET 

IF OLDEX$ = "5" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI 
R。 PSET 

IF OLDFX$ = "6" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI 
TLLB%, PSET 

IF OLDEX$ = "7" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI 
TLLT%, PSET 

IF OLDFX$ = "8" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI 
TLRTX, PSET 

IF OLDFX$ = "9" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI 
TLRB%, PSET 

IF OLDEX$ = "A" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI 
CK%, PSET 


1) * 32), 
1) * 32), 
1) * 32), 
1) * 32), 
1) * 32), 
1) * 32), 
1) * 32), 


1) * 32), 


IT OLDEX$ = "K" THEN PUT ((OLDA - STARTJ - 1) * 32, (OLDB - STARTI - 1) * 32), 


G%, PSET 
E=(A-STARTJ- 1):F = (B - STARTI - 1) 


IFE>16 AND (YOKOMAX - A) > 7 THEN STARTJ = STARTJ + 7: GOTO START 


IFE く <4ANDA> 7 THEN STARTJ = STARTJ - 5: GOTO START 


IFF>10 AND (TATEMAX - B) > 4 THEN STARTI = STARTI + 4: GOTO START 


ITF< く 2 ANDB> 4 THEN STARTI = STARTI - 4: GOTO START 
IFE<=0THENE=0 

IFE>= 19 THENE = 19 

IFF<=0THENF=0 

IFF>=11 THENE = 11 

IF TOWN = 0 THEN PUT (E * 32, F * 32), GREENSS%, PSET 
IF TOWN = 1 THEN PUT (E * 32, F * 32)。 PINKSS%, PSET 
C=E:D=F 

RETURN 

TAKARACHECK: 

IFA=10ANDB=10 THEN 

PUT ((A - STARTJ) * 32, (B - STARTI - 1) * 32)。 TAKARAC%, PSET 
GET (10, 20)-(80, 150)。 TEMPOX 

GET (200, 40)-(470, 110), TEMP02% 

LINE (10,20)-(80, 150), 0, BE 

LINE (10, 20)-(80, 150), 7, BE 

LINE (11, 21)-(79, 149), 0, BE 


CLS 2 
LOCATE 3 5: PRINT "OPEN" 
LOCATE 4 5: PRINT "TAKE" 
LOCATE 5, 5: PRINT "USE" 
LOCATE 6, 5: PRINT "END" 
DO WHILE 1 
WINDOW2: 

LOCATE ARROW, 3 

PRINT "*" 


WINDOWKEY1 = ASC(LEFT$(WINDOWKEY$, 1)) 
WINDOWKEY2 = ASC(RIGHT$(WINDOWKEY$, 1)) 


GRA 
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IF WINDOWKEY1 = 0 AND WINDOWKEY2 = 72 THEN 
ARROW = ARROW - 1: OLDARROW = ARROW + 1 
END IF 

IF WINDOWKEY1 = 0 AND WINDOWKEY2 = 80 THEN 
ARROW = ARROW + 1: OLDARROW = ARROW - 1 


END IF 

IF ARROW >= 7 THEN ARROW = 3 
IF ARROW <= 2 THEN ARROW = 6 
IF ARROW = 3 THEN WINSELECT = 1 


IF ARROW = 4 THEN WINSELECT = 2 
IF ARROW = 5 THEN WINSELECT = 3 
LOCATE OLDARROW, 3 
PRINT CHR$(251) 
LOCATE ARROW, 3 
PRINT "*" 
IE WINDOWKEY1 = 13 THEN 
WINSELECT2 = WINSELECT 
IF WINSELECT2 = 1 THEN 
PUT ((A - STARTJ) * 32, (B - STARTI - 1) * 32), TAKARAG%, PSET: TAKARA1 
END IF 
IF WINSELECT2 = 2 THEN 
PUT ((4 - STARTJ) * 32, (B - STARTI - 1) * 32), TAEARAO%, PSET: TAKARA1 
LINE (200, 40)-(470, 110), 0, BE 
LINE (200, 40)-(470, 110), 7, B 
LINE (201, 41)-(469, 109), 7, B 
LOCATE 5, 30 
PRINT " デ "2 A 1000 マ - 中 3 天 化 3。 " 
END IE 
IF WINSELECT2 = 3 THEN RXIT DO 


CLS 2 

PUT (10, 20), TEMPO%, PSET 

PUT (200, 40)。 TEMPO2%, PSET 

END IF 

RETURN 

KINGCHECK: 

IFA=16ANDB=3 THEN 

GET (20, 40)-(290, 110), TEMP03% 
LINE (20, 40)-(290, 110), 7, B 
COLOR 0 

FORI = 0T0O3000 

LOCATE 4, 5: PRINT " デ 旭 【 7 の イ 層 ゲド パニ の 
LOCATE 5, 5: PRINT "中 テ 學 22。" 
LOCATE 6, 5: PRINT "9 多聞 秘 人 4" 
NEXTI 

COLOR 7 

CLS 2 

PUT (20, 40), TEMPO3%, PSET 

END IF 

RETURN 
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も か か わら ず 動 作 し な い 場 合 は , 11 ペ ー ジ の 


参考 に し て みて く ヵ た 


入力 し だ に 
ー ジ の 


ラム を 完全 ( 


ブ プログ 
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囲み , 


ご さい ) 


コラ ム を 
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“We were hit/" 


re hit/“ 


婦 ト ム ・ ク ルー ズ よ 早く こい 


映画 「 ト ッ プ ガン 」 の 中 で , アイ スマ ン が ミグ の 機関 銃 に 撃た ん る シー ン が 
あり まし た . 感情 を 表 さ な い は ず の 役 の 声 が うわ ずっ て いた の も うな ず け ます . 
機関 銃 で 撃た れ ち ゃ 大 変 で す . 

ゲー ム の 中 で も , ミサ イル ・ 爆 弾 と の 衝突 , 敵 と の 出合 いな ど , 衝突 の 判定 
は 重要 で す . で は , 衝突 の 判定 に つつ いて 見 て み ま し ょ う . 

支 衝 突 判 定 

自分 で ゲー ム を 作る こと の 利点 の 1 つ は , 衝突 判定 の 基準 を 自分 の 思い ど 
お り に で きる こと で す . で も , あま り 自 分 だ け に 都合 が 良 す ぎる よう に し て し 
まう と , ゲー ム が つま ら な く な っ て し まい ます . 良い 審判 に な っ て くだ さい . 

衝突 判定 の 基準 は , 判定 する 2 つが どれ ぐら い 近 く の 場 所 に 存在 する か で す . 

TEKI%, MIKATA% と いう キャ ラク タ を , と も に 32X32 ド ッ ト の 大 き さ が あ 
る と し て 考え ます . 

いま , TEKI% と いう キャ ラク タ を 表示 する 画面 上 の 位置 を 和 とし て で 。 MI 
KATA% と いう キャ ラク タ を 表示 する 位置 を A, B と する と , 両者 が 完全 に 一 致 
する と き は , 当然 ,A=X, B=Y に な り ま す . 


( メ , Y) (4, お) ( ズ , や ) 


SS で “ 有 
RN 


完全 衝突 
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と ころ が 普通 衝突 を 判定 する 場合 に は , 完全 に 重なり 合わ な く て も , ある 
程度 重なっ た と ころ で 衝突 と 判定 し ます . 


(X, Y) 


シミ ュ レ ーション , ウォ ー ゲ ー ム の よう に 隣接 し た だ け で 戦い が 始ま る よう 
な と き の 判 定 は , 次 の よう に 行い ます . 


衝突 プロ グラ ム 
TFP_ABS_(A 一 _X) <=_32_AND_ABS_(B_ 一 -Y) _<=32_THETN 
GOSUB_BATTLE 
END_TE 
END 


BATTL: 


RETURN 
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まず , TEKI%, MIKATA% の 両者 を 表示 する 横 方 向 の 位置 を ムーX で 比べ ま 
す . ABS (A 一 XX) と し て いる の は 両者 の 絶対 値 を 取っ て いる た めで , これ は ず 
れ 方 に より AX の 値 が マイ ナス に な っ て も 正しく 判定 で きる よう に する た め 
で す . 次 の <= 32 で 両者 の 横 方 向 の ズレ が 32 ド ッ ト 以 内 に な っ た か どう か 
を 確か め て いま す . 縦 方 向 の 位置 を 表す B と Y と の 差 に つい て も 同じ よう に , 
ABS (B 一 く =_32 で , 32 ド ッ ト 以 内 か を 確か め て いま す . そし て ここ 
で , 両方 の 式 の 間 に AND と いう 言葉 が 出 て きま し た . 

これ は , AND の 前 に 書か れ た 式 と , あと に 書か れ た 式 が , 両方 同時 に 成立 す 
る か どう か を 見 る た め の 命令 で す . 横 方 向 は し っ か り 重 な っ て いて も , 縦 に 離 
れ て いた ら 衝 突 と は いえ ませ ん . そこ で , 横 も 縦 も 両方 と も に 条件 が 満た され 
た と き 始 め て THEN 以下 を 実施 する よう に する の が この AND 命令 の 役目 で す . 

成立 し た と き に は , BATTLE と いう サブ ルー チン に 飛ば し て いま す . これ は , 
モジ ュー ル に し て そこ に 飛ば し て も 構い ませ ん . 戦い の よう に 複雑 な 部 分 は ま 
と め て お いて , そこ に 飛ん で 行か せる よう に し て お いた 方 が 簡単 で す . 

モビ ルス ー ツ 同士 の 戦い や , 敵 の キャ ラク タ と 味方 の キャ ラク タ と の 戦い な 
ど で は , 絵 の 周り に 余白 が ある と き が あり ます . この よう な 場合 , 衝突 判定 の 
値 を 32 以 下 と し て お く と , スレ 違っ た だ け で 戦い が 始ま っ て し まい ます . それ 
が いや な 人 は , 32 と いう 数 字 を 28 と か 24 と か 自分 の 望む 値 に 小さ くし て くだ さ 
い . 


* い つ 衝 突 判 定 を する か 


衝突 判定 は , 敵 の 移動 後 , 味方 の 移動 後 ,。 それぞれ に つい て 行っ た 方 が 良い 
で し ょ う . 2 回 や る の は 面倒 か も 知れ ませ ん が , まとめ て や っ て いる と , 味方 
が 移動 し て 重なり 合っ た が , その 途 端 敵 が 移動 し て 衝突 が 起こ ら な いな ど と 変 
な 形 に な っ て し まい ます . 


トム ・ ク ルー で よ 
早 < 来 て くれ ーー ニッ 
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*※ ゴ ー ス ト 登 場 (衝突 判定 の 中 の オバ ケ の 世界 ) 

ゴー スト と いっ て も , “ロー ルプ レイ イン グ ゲ ー ム "に 出 そ で くる オノ パケ の こと 
で は あり ませ ん . 

衝突 判定 は , 相手 を 画面 の どこ に 表示 する か を 示す X, Y な どの 位置 を 判定 
の 基準 に 使っ て いま す . ここ て で 注意 し な けれ ば いけ な い の は , 相手 を や っ つけ 
た あと も この X と Y の 値 が 残る こと で す . これ を 上 手 く 処理 し な いと , 何 も な 
いと ころ で , 敵 の 爆発 シー ン だ けが 出 て きた り し ます . これ を 防ぐ に は , 次 の 
よう に し ます . 

TEKIA が 生き て いる か どう か を 示す 変数 TEKILIFEA を 作り , これ に フラ ッ グ 
を 立て ます . つま り , TEKIA が 生き て いる と き に は TEKILIFEA = 1 , 死ん で 
し まっ た と き は TEKILIFEA = 0 と し ます . 

画面 に 表示 する 位置 を X,Y と する と , 


IF TEKILIFEA = 1 THEN PUT TEKIA%X、 Y) 


の よう に , 画面 に 表示 する 前 に 必ず TEKILIFEA が 1 か どう か を 確認 し ます . 

また , XX, Y の 位置 を 計算 し て , 画面 に 表示 する 部 分 を サブ ルー チン 化し て 
TEKILIFEA が 1 の と きだ け そ の ルー チン に 飛ぶ よう に し た 方 が ムダ な 計算 が 
な い だ け 優れ て いま す . 

同じ よう に 衝突 判定 の 部 分 ち も サ プルー チン 化し て , TEKILIFEA が 1 の と きだ 
け TEKIA に つい て 衝突 判定 を し て や る 必要 が あり ます . 

これ と 同時 に , BATTLE と か TEKIBAKUHATSU の ルー チー ン の 中 で TEKIA 
が 死ん だ と き に は , TEKILIFEA = 0 と し て TEKILIFEA の 値 を 0 に し て お い 
て くだ さい. これ で , 画面 を プー スト が 徒 税 する こと は な く な る は ず で す . 


複数 の 敵 と の 衝突 判定 


敵 が 複数 出 て きた と き , 敵 の 数 だ け 衝突 判定 の ルー チン を 作る と , プロ グラ 
ム が 長大 化し て し まい ます . そこ で , 同じ サブ ルー チン を うま く 《 使 っ て や り ま 
し ょ 9⑰。 
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本 格 的 ス フ クロール ゲー ム 「SPACEWARJ 


』 ス クロ ー ル ゲー ム 
= IGPACEWAHJ 


で は ここ で , 本 格 的 スク ロー ル ゲ ー ム 「SPACEWAR』 に 挑戦 し て み ま し ょ 
2 


時 は 2030 年 , 宇宙 人 が UFO に 乗り 地球 攻撃 に と 向っ て きま す . 月 の 基地 か 
ら 発進 し た 戦闘 機 に 乗っ た あな た は , UFO が 地球 攻撃 ミサ イル を 発射 する ま 
で に や っ つけ な けれ ば いけ ませ ん . ミサ イル は 16 発 , 燃料 に も 限り が あり ま 
す . 陸 知 と UFO か ら の 攻撃 を か わし な が ら , あな た は 任務 を 遂行 で きる か ? 


この ゲー ム に は , ゲー ム 作 り の さま ざま な 秘密 が いっ ぱい 詰まっ て いま す . 
スル メ を 噛む よう に 良く 味わっ て くだ さい . 

ゲー ム が 複雑 に な る に つれ , グラ フィ ッ ク が た くさ ん いる よう に な り ま す . 
ゲー ム を 作る 前 に , CGENE.BAS を 使っ て 必要 な グラ フィ ッ ク を か き , 正しい 
名 前 で モー プ し て お いて くだ さい . まず UFO や FIGHTER の 絵 を か いて セー 
プ し て お き , 湊 に その 絵 の 上 に 火 や 爆破 の よう す を 少し か き , それ を BAKU 
HA1 と し て セー ブ し , さら に 爆破 を 大 きく し て それ を BAKUHA2 と し て セー 
プ す る よう に する と 比較 的 簡単 に で きま す . 

必要 な 絵 は 次 の と お り で す . 


FIGHTER UFO MISSILE 
MBAKUHA1 BAKUHA1 INSEKI 
MBAKUHA2 BAKUHA2 TEKIFIRE 
MBAKUHA3 BAKUHA3 

BAKUHA4 
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文 カラ ー ロ 絵 p.3 一 4 参照 


BAKUHA 2(UFO 中 爆発 ) BAKUHA 3(UFO 大 爆発 ) BAKUHA 4(UFO 超 大 爆発 ) 


し 


MISSILE (味方 サイ ル ) INSEKI ( 限 石 ) TEKIFIRE( 敵 の 攻撃 ) 


L 
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C) 


GRNE OUER 


DO YOU UNYT TO PLRY GRIN Y240? 


HISSILE 娘 カラ ー ロ 絵 
II 川 ーー p- 3 参照 


『SPACEWARi( シ ュー ティ グ ゲ ー ム ) 
ゲ ー ム の 遊び 方 


167 ペ ー ジ の プロ グラ ム “SPACEWAR.BAS" を て いね い に 打 ち 込 み , 保存 し 
だ た あ と , 実行 し て くだ さい . 

プロ グラ ム 入 力 の 前 に , 13 ペ ー ジ の は じ め の 注意 を よく 読ん で くだ さい . 

数 字 の 4 で 左 , 6 で 右 に , 8 で 上 に , 2 で 下 に 動き ます . 数 字 の 0 を 押す と , 
味方 の ミ サイ ル が 発射 され ます . 

隅 石 と 敵 の ミサ イル に 当たる と 爆発 し て し まい ます , くれ ぐれ も 当たら な い 
隊 間 人 
イル と 燃料 が 補給 きれ , 次 の 戦い が 始ま り ま す . 

Ei 


を プロ グラ ム の 解説 


プロ グラ ム を 上 か ら 順 に 見 て いっ て も , 全体 像 を 理解 する の は , な か な か 簡 
単 で は あり ませ ん . そこ で ここ で は , と くに 大 事 な 機 能 や テク ニッ ク を 個別 に 
見 て 行く よう に し た いと 思い ます . 


生 UFO の 動き 

敵 の UFO は , 右 か と 思え ば また 左 と , ヒラ ヒラ と 逃げ ば まわ り ま す . 時 に は ミ 
サイ ル の 当たる 直前 に 身 を か わし た り し ます . これ は , 次 の よう な や り 方 で フ 
ログ ラム され て いま す . 
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毎回 の 位置 を RND で 少し ずつ 変え よう と する と , 同じ よう な 位置 に 留まっ 
て し まっ て うま くい きま せん . ここ で は , 次 の よう に 行っ て いま す . 

まず , SPACEWAR. BAS 本 体 の 169 ペ ー ジ の 8 行 目 , 次 の よう に 書か れ て い 
る 部 分 で す . 


SPACE1. BAS プ ログ ラム 
UEOLIFE = 1 


UEOYOKO = 60 + INT(RND * 500): UFOTATE = 32 + INT(RND * 50) 
UFOMOKUTEKIY = 60 + INT(RND * 500): UFOMOKUTEKIX = 32 + INT(RND * 100) 


ここ で , 最初 に 出現 する 位置 を UFOYOKO お よび UFOTATE と し て RND 
関数 を 使っ て 決め て いま す . UFOYOKO の 場合 ,. PUT する 位置 が 60 か ら 最 大 
560 の 間 に な る よう に 定め て いま す . そし て , 出現 する 位置 の ほか に , 目的 地 を 
同じ よう に し て 横 方 向 UFOMOKUTEKIY, 縦 方 向 UPOMOKUTEKIX と し て 決 
め て いま す . 


次 に , プロ グラ ム の 下記 の 部 分 で も し 目的 地 の 値 の 方 が 現在 の 位置 の 値 よ 
り 大 きい 場合 は , 現在 位置 の 値 を 増やす よう に , 少な い 場 合 に は 現在 位置 の 値 
を 減ら す よ うに 動く よう に し て いま す . 


SPACE2. BAS プ ログ ラム 
IF UFOYOKO < UFOMOKUTEKIY THEN UFOYOKO = UFOYOKO + 10 + UFOSOKUDO + UFOSOKUDO2 


IF UFOYOKO > UFOMOKUTEKIY THEN UFOYOKO = UEOYOKO - 10 - UFOSOKUDO - UFOSOKUDO2 
IF UFOTATE < く UFOMOKUTEKIX THEN UEOTATE = UFOTATE+ 4 
IF UFOTATE > UEFOMOKUTEKIX THEN UFOTATE = UFOTATE - 4 


(SPACEWAR.BAS で は 169 ペ ー ジ の 下 か ら 14 行 目 に な り ま す ) 


また , ここ で UFOSOKUDO と いう 値 を 入れ , この 速度 自体 を RND 関数 を 
使っ て 変え る こと に より 移動 する 速度 が 同じ に な っ て , 動き が 読め て し まう の 
を 防い で いま す . この よう に し て , 現在 位置 を 目的 位置 に 近づけ て 行く の で す 
が , この まま で は 現在 位置 と 目的 位置 が ほぼ 一 致し た と ころ で UFO が 止ま っ 
て し まい ます . そこ で , 次 の よう な し か け を 入れ ます . 
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SPACE3. BAS プ ログ ラム 
IF ABS(UFOMOKUTEKIX - UFOTATE) < 4 THEN 
UFOMOKUTEKIX = 32 + INT(RND * 100) 
UFOSOKUDO = INT(RND * 8) 
END IF 


IF ABS(UFOMOKUTEKIY - UFOYOKO) < 21 THEN 
UFOMOKUTEKIY = 10 + INT(RND * 600) 
UFOSOKUDO = INT(RND * 8) 

END IF 


(SPACEWAR.BAS で は 169 ペ ー ジ 31 行 目 に な り ま す ) 


これ に より , UFO 現在 位置 が 目的 位置 に 近づい て 来 て , 一 定 の 範囲 内 に 来る 
と 目的 位置 その も の を 別 の 値 に 変え た てい ます. また この と き , 一 緒 に UFOSO 
KUD 〇 も 0 一 8 まで の 間 で 変化 させ て いま す . 


介 ミ サイ ル 発 射 
ミサ イル の 発射 を コン トロ ー ル し て いる の は , プロ グラ ム SPACEWAR. 
BAS 本 体 の 170 ペ ー ジ 5 行 目 以下 の 部 分 で す . 


SPACE4. BAS プ ログ ラム 
IF FIRE = 0 THEN 
IF 4$ = "0" THEN 
FIRE = 1 


MYOKOICHI = YOKO: MTATEICHI = TATE - 32 
LINE (MISSILEKAZU * 10。 370)-(MISSILEKAZU * 10 + 4, 390), 0, B 
MISSILEKAZU = MISSILEKAZU - 1 
END IF 
END IF 


この 部 分 で 重要 な の は , 最初 の IF FIRE = 0 THEN の 部 分 で す . この プ 
ログ ラム で は , ミサ イル が 発射 され て いる か どう か は FIRE と いう 変数 を フラ 
ッ グ に 使っ て , 発射 され て いれ ば FIRE = 1 と し , 発射 され て いな けれ ば 
FIRE = 0 と し て いま す . ここ で , 最初 の IF 文 で . いま 現在 FIRE=0O つ 
まり 発射 され た ミサ イル が 飛ん で いな いと きのみ , この 部 分 の プロ グラ ム を 実 
行 す る よう に し て いま す . 

次 に , IF A$ = "0O' で , AS$ = INKEY$ と し て キー ボー ド か ら 入 力 さ れ 
た 文字 が 0 の と き に ミサ イル 発射 と な る よう に し て いま す . 次 の 行 の 
FIRE = ] で , 現在 ミサ イル が 発射 され て いる こと を フラ ッ グ を 立て て 示し 
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て いま す . そし て , MYOKOICHI = YOKO と し て ミサ イル の 横 位置 を 現在 
の 戦闘 機 の 横 位置 に 一 致 き せ て いま す . 以後 , この まま の 値 を 使う の で , 戦闘 
機 の 位置 を どの よう に 変え て も ミサ イル の 横 方 向 の 位置 に は 影響 し ませ ん . ま 
た , MTATEICHI = TATE 一 32 で ミサ イル を 戦闘 機 の 直前 か ら 発 射 さ せ 
る よう に し て いま す . 

そし て , ミサ イル 数 を それ まで の 値 か ら 1 つ 減 し て いま す . 

この よう に , この 部 分 は ミサ イル の 発射 の み を 扱い , 実際 の ミサ イル の 動き 
は FIRE が 1 か どう か を 調べ て 別 の 部 分 で 行っ て いま す . 

ま た, 一度 ミ サイ ル が 発射 され る と , ミサ イル が 飛ん で いっ て し まう か , UFO 
に 当たっ て 爆発 する か し て FIRE = 0 と され る まで は , この 部 分 は 0 を 押 
し て も 実行 きれ ませ ん . 

実際 の ミサ イル の 動き と 衝突 判定 は , 次 の よう に 行っ て いま す . 

SPACE5. BAS プ ログ ラム 

IE FIRE = 1 THRN 
MTATEICHI = MTATEICHI - 20 


IF MTATEICHI < 1 THEN FIRE = 0 
IFF<OTHENF=0 


IF MTATEICHI > 1 THEN PUT (MYOEOICHI, MTATEICHT), MISSILE% 

E = MYOKOICHI: F = MTATEICHI 

END IF 

IF ABS(MYOKOICHI - UFOYOKO) < 24 AND ABS(MTATEICHI - UFOTATE) < 24 THEN 
GOSUB TEKIBAKUHA 

END IF 


(SPACEW AR. BAS 本 体 170 ペ ー ジ 30 行 目 か ら ) 
まず , IF FIRE = 1 THEN の 文 で , FIRE が 1. つま り ミ サイ ル が 発射 され 
て いる 場合 の み , この 部 分 を 実行 させ る よう に し て いま す . そし て 次 に , 
MTATEICHI = MTATEICHI - 20 


で ミサ イル の 縦 の 位置 が . この ルー チン を 通る た びに 20 ド ッ ト 上 に 移動 する よ 
うに し て いま す . また 次 の 行 


IF MTATEICHI < 1 THEN FIRE =O0 


の 行 で 。 ミサ イル が 画面 の 上 に 飛び 去る 位置 に 来 た と き に , その ミサ イル は な 
な っ る 飲 選 と ど に し で W ま きず. 
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その 後 で ミサ イル が まだ 飛ん で いる 位置 に あれ ば , 新しい 位置 に ミサ イル の 
絵 を PUT し て いま す . そし て , 


IF ABS(MYOKOICHI 一 UFOYOKO) < 24 AND ABS (MTATEICHI 
ーー _UFOTATE) < 24 THEN 

GOSUB TEKIBAKUHA 

END F 


の 行 で 、 UFO と ミサ イル の 衝突 判定 を 行っ て いま す . つま り , UFO と ミサ イ 
ル の 横 位置 が 土 24 ド ッ ト 以 内 に 来 て . か つ そ れ と 同時 に 縦 位置 が 土 24 ド ッ ト 以 
内 に 来 た と き に TEKIBAKUHA の サブルーチン に 飛び , UFO を 爆発 きせ る よう 
に し て いま す . この 数 字 を 変え ん る こと に より , 衝突 の 判定 を 甘く も か らく も で 
きま す . 

いま の 位置 は 少し 甘い の で す が , 近接 信管 (近づく と 爆発 する ) が 付い て いる 
ん だ と 思っ て くだ さい (本 当 は 自分 が 有利 な よう に 作っ て いる の で す ?). 


移 敵 の 爆発 

画面 上 で , 敵 が ハデ に 爆発 する と 「 ヤ ッ タ ー」 と いう 気 に な る 人 は 多い と 思い 
ます . そこ で , 爆発 シー ン を どう 作る の か を 説明 し まし ょ う . 

爆発 シー ン の 原理 は 簡単 で す . 正常 な 絵 か ら 少し ずつ 爆発 が ひど く な っ て 行 
く 絵 を 順番 に 表示 し , 1 つ 1 つ の 絵 の 間 に 若 干 の 時 間 の 遅れ を 入れ る こと に よ 
っ て , 爆発 が ひど く な っ て 行く よう す を 示す こ ど が で きま す . で は プロ グラ ム 
を 見 て 見 まし ょ う . 


SPACE6. BAS プ ログ ラム 
TEKIBAKUHA: 

GOSUB GAMEN 

PUT (OUFOYOKO, UFOTATE), BAKUHA1%, PSET 
TOR { = 1 TO BAKUHADELAY 

NEXT 

GOSUB HOSHI 

GOSUB INSEKI 

PUT (YOKO, TATE)。 FIGHTER%, PSET 
GOSUB GAMEN 

PUT (UEOYOKEO, UFOTATE), BAKUHA2%, PSET 
FOR { = 1 TO BAKUHADELAY 

NEXT 

GOSUB HOSHI 

GOSUB INSEKI 
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PUT (YOKO, TATE), FIGHTERX, PSET 
GOSUB GAMEN 

PUT (UFOYOK0, UFOTATE), BAKUHA3%, PSET 
FOR I = 1 TO BAKUHADELAY 

NEXT 

GOSUB HOSHI 

GOSUB INSEKI 

PUT (YOKO, TATE), FIGHTER%, PSEKT 
GOSUB GAMEN 

PUT (UFOYOKO, UFOTATE), BAKUHA4%, PSET 
FOR 1 = 1 TO BAKUHADELAY 

NEXT 

GOSUB HOSHI 

GOSUB INSEKI 

PUT (YOKO, TATE), FIGHTERX, PSET 
FIRE = 0 

UFOLIFE = 0 

MYOKOIHI = YOKO: MTATEICHI = TATE 
SCORE = SCORE + 10000 

TIMECOUNT = 0 

RETURN 


まず , GOSUB_GAMEN で 画面 の 切り 替え ルー チン に 飛ん で いま す (SPAC- 
FEWAR 本 体 で は 170 ペ ー ジ 下 か ら 5 行 目 に な り ま す ). これ で , 1 面 を か いて い 
る と き に 0 面 を 表示 , 0 面 を か いて いる と き に 1 面 を 表示 する こと が で き , 繧 
が きれ い に 出 せま す . 

次 に , 3 行 目 で UFO の いた 位置 に 前 も っ て か いて あっ た BAKUHA1% の 絵 
を PUT し て いま す . これ に より , ほん の 少し 爆発 し か けた 絵 を 表示 する こと が 
で きま す . 次 の 2 行 , 

FOR 1 = 1 TO BAKUHADELAY 
NEXT 


で ., 時 間 か せ ぎ を し て いま す . この よう な 場合 , 直接 数 字 を 1 つ 1 つ 変え る よ 
り も, あらかじめ BAKUHADELAY = SO0 の よう に 1 ヵ所 で 指定 し て お く 
と あと で 実験 し な が ら 数 値 を 変え る と き 楽 で す . また , 単なる 時 間 か せ ぎ で は 
な く . この 部 分 で PLAY 命令 SOUND 命令 を 使っ て 爆発 の 音 を 出せ ば , より 
追 力 の ある ゲー ム に な り ま す . ぜひ 挑戦 し て みて くだ さい . 

次 の 行 の GOSUB HOSHI と , その 次 の 行 の GOSUB INSEKI で す が , 
これ は 爆発 の シー ン の 間 , 周り の 星 や 限 石 の 動き が 止ま っ て は お か し い の で 入 
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れ て あり ます . この よう に , 各 機 能 を サブ ルー チン で 分 け て お く と , いろ いろ 

な と ころ か ら 呼 び 出せ る の で , プロ グラ ム が 楽に な り ま す . あと は 絵 を 少し ず 
つ ハ デ な 爆発 に な る よう に 変え な が ら 同 じ こ と を 繰り 返し ます . 

これ で , 爆発 の プロ グラ ハム 部 分 は 終わ り で す が , この あと で いろ いろ 残っ た 
処理 を し て いま す . 

ミサ イル も UFO も な く な っ た の で , FIRE = 0.UFOLIFE = 0 と し て , 
次 の UFO の 出現 と ミサ イル の 発射 に そなえ る よう フラ ッ グ を リセ ッ ト し て お 
きま す 、 

また , UFO が 飛ん で も いな い ミ サイ ル と 衝突 判定 され て し まう の を 防ぐ た 
め , ミサ イル の 横 位 置 と 縦 位置 で ある MYOKOICHI と MTATEICHI を いま の 
戦闘 機 の 位置 に 合わ せ て いま す . この あと , 点数 に 10000 点 を プラ ス し て いま 
9 

最後 の TIMECOUNT = 0 は , UFO が あま り に すぐ に また 出現 し な いよ う 
に する た め の カ ウン タ TIMECOUNT の 値 を リセ モット し て いま す . 

(プロ グラ ム を 完全 に 入力 し た に も か か わら ず 動 作 し な い 場 合 は , 11 ペ ー ジ の 
囲み ,. お よび 90 ペ ー ジ の コラ ム を 参考 に し て みて くだ さい ) 


SPACEWAR. BAS プ ログ ラム 
SCREEN 88, 3, 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 
CLS 
COL = 15 
WIDTH 80, 25 
RANDOMIZE TIMER 
SCORE = 0 
OLDSCORE = 0 
FUOEL = 300: FUEL2 = FUEL 
MISSILEKAZU = 16 
ROUND = 0 
YOKO = 340: TATE = 300 
BAKUHADELAY = 500 
IDOURYOU = 20 
HOSHIIDOU = 6 
BA = 300 
HB = 50 
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INSEKITATEB = 200 
DIM SHOUKYOX(800) 

GRT (1, 1)-(32, 32), SHOUKYO% 
DIM FIGHTERX(800) 

DIM UFOX(800) 

DIM MISSILE%(800) 

DIM BAKUHA1%(800) 

DIM BAKUHA2%(800) 

DIM BAKUHA3%(800) 

DIM BAKUHA4%(800) 

DIM INSEKI%(800) 

DIM MBAKUHA1%(800) 

DIM MBAKUHA2%(800) 

DIM MBAKUHA3%(800) 

DIM TEKIMISSILE%(800) 

DEE SEG = VARSEG(FIGHTERX(0)) 
OFFSETX = VARPTR(FIGHTERX(0)) 
BLOAD "FIGHTER.GRA", OFFSETX 
PUT (340, 300), FIGHTER% 

DEF SEG = VARSEG(UFOX(0)) 
OFFSET = VARPTR(UFOX(0)) 
BLOAD "UFO.GRA", OFFSETX 

DEF SEG = VARSEG(MISSILE%(0)) 
OFFSETX = VARPTR(MISSILEX(0)) 
BLOAD "MISSILE.GRA", OFFSRTX 
DEF SEG = VARSEG(BAKUHA1%(0)) 
OFFSET% = VARPTR(BAKUHA1%(0)) 
BLOAD "BAKUHA1.GRA", OFFSET% 
DEF SEG = VARSEG(BAKUHA2%(0)) 
OFFSET% = VARPTR(BAKUHA2%(0)) 
BLOAD "BAKUHA2.GRA", OFESET% 
DEF SEG = VARSEG(BAKUHA3%(0)) 
OFFSET% = VARPTR(BAKUHA3%(0)) 
BLOAD "BAKUHA3.GRA", OFFSETX 
DEE SEG = VARSEG(BAKUHA4%(0)) 
OFFSET% = VARPTR(BAKUHA4%(0)) 
BLOAD "BAKUHA4.GRA", OFFSET% 
DEF SEG = VARSEG(INSEKI%(0)) 
OFFSETX = VARPTR(INSEKIX(0)) 
BLOAD "INSEKI.GRA"。 OFESETX 
DEF SEG = VARSEG(MBAKUHA1%(0)) 
OFFSET% = VARPTR(MBAKUHA1%(0)) 
BLOAD "MBAKUHA1.GRA"。 OFESETX 
DEF SEG = VARSEG(MBAKUHA2%(0)) 
OFFSETX% = VARPTR(MBAKUHA2%(0)) 
BLOAD "MBAKUHA2.GRA", OFFSET% 
DEF SEG = VARSEG(MBAKUHA3%(0)) 
OFFSET% = VARPTR(MBAKUHA3%(0)) 
BLOAD "MBAKUHA3.GRA", OFFSET% 
DEF SEG = VARSEG(TEKIMTSSILE%(0)) 
OFFSETX = VARPTR(TEKIMISSILE%(0)) 
BLOAD "TEKIFIRE.GRA",。 OFFSET% 
DEF SEG 
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LOCATE 23, 2: PRINT "MISSILE" 
FOR { = 1 TO MISSILEKAZU 
LINE (I * 10, 370)-(I * 10 + 4, 390), 7, BEF 
NEXT I 
LOCATE 23, 40: PRINT "FUEL" 
LINE (300, 385)-(300 + FUEL, 395), 2, BE 
UFOSOKUDO = ABS(INT(RND * 8)) 
UFOLIFE = 1 
UFOYOKO = 60 + INT(RND * 500): UFOTATE = 32 + INT(RND * 50) 
UEOMOKUTEKIY = 60 + INT(RND * 500): UFOMOKUTEKIX = 32 + INT(RND * 100) 
START: 
GOSUB GAMEN 
UFOSOKUDO2 = INT(RND * 2) 
LOCATE 23, 2: PRINT "MISSILE" 
LOCATE 23, 40: PRINT "FUEL" 
GOSUB HOSHI 
GOSUB INSEKI 
IF ABS(INSEKIYOKOA - YOKO) < 16 AND ABS(INSEKITATEA - TATE) <16 THEN 
GOSUB MIKATABAKUHATSU 
END IF 
IF ABS(INSEKIYOKOB - YOKO) < 16 AND ABS(INSEKITATEB - TATE) <16 THEN 
GOSUB MIKATABAKUHATSU 
END IF 
TIMECOUNT = TIMECOUNT + 1 
IF TIMECOUNT > 30 THEN TIMECOUNT = 0 
IE UEOLIEE = 0 AND TIMECOUNT > 20 THEN 
UFOYOKO = 60 + INT(RND * 500): UFOTATE = 32 + INT(RND50) 
C = UFOYOKO: D = UFOTATE 
UEOLIFE = 1 
END IF 
IF ABS(UFOMOKUTEKIX - UFOTATE) < 4 THEN 
UFOMOKUTEKIX = 32 + INT(RND * 100) 
UFOSOKUDO = INT(RND * 8) 
END IE 
IF ABS(UFOMOKUTEKIY - UFOYOKO) < 21 THEN 
UFOMOKUTEKIY = 10 + INT(RND * 600) 
UFOSOKUDO = INT(RND * 8) 
END IF 
IF UFOYOKO < UFOMOKUTEKIY THEN UFOYOKO = UFOYOKO + 10 + UFOSOKUDO + UFOSOKUD02 
IF UFOYOKO > UEOMOKUTEKIY THEN UFOYOKO = UFOYOKO - 10 - UEOSOKUDO - UFOSOKUDO2 
IF UFOTATE く UFOMOKUTEKIX THEN UFOTATE = UFOTATE + 4 
IF UFOTATE > UFOMOKUTEKIX THEN UFOTATE = UFOTATE - 4 
IF UFOYOKO < 1 THEN UFOYOKO = 607 
IF UEOYOKO > 607 THEN UFOYOKO = 1 
IF UFOLIFE = 1 THEN PUT (UFOYOKO, UFOTATE), UFO%, PSRT 
C = UEOYOKO: D = UFOTATE 
A$ = INKEY$ 
IF A$ = "1"” THEN YOKO = YOKO - IDOURYOU: TATE = TATE + IDOURYOU 
IF A$ = "2” THEN TATE = TATE + IDOURYOU 
IF A$ = "3” THEN YOKO = YOKO + IDOURYOU: TATE 
IF A$ = "4” THEN YOKO = YOKO - IDOURYOU 
IF A$ = "6" THEN YOKO = YOKO + IDOURYOU 


TATE + IDOURYOU 
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IF A$ = "7” THEN YOKO = YOKO - IDOURYOU: TATE = TATE - IDOURYOU 
IF A$ = "8” THEN TATE = TATE - IDOURYOU 
IF A$ = "9" THEN YOKO = YOKO + IDOURYOU: TATE = TATE - IDOURYOU 
IF MISSILEKAZU <= 0 AND FIRE = 0 THEN GOTO CHECKOWARI 
IF FIRE = 0 THRN 
IF A$ = "0” THEN 
FIRE = 1 
MYOKOICHI = YOKO: MTATEICHI = TATE - 32 
LINE (MISSILEKAZU * 10, 370)-(MISSILEKAZU * 10 + 4。 390), 0, BE 
MISSILEKAZU = MISSILEKAZU - 1 
END IE 


END IF 
IF A$ = "Q" THEN GOTO OWARI 


IF A$ = "q THEN GOTO OWARI 
IF YOKO > 607 THEN YOKO = 1 
IE YOKO < 1 THEN YOKO = 607 
IF TATE > 310 THEN TATE = 310 
IF TATE < く 270 THEN TATE = 270 
PUT (YOKO, TATE), FIGHTER%, PSET 
A = YOKO: B = TATE 
IF ABS(INSEKIYOKOA - YOKO) < 16 AND ABS(INSEKITATEA - TATE) < 16 THEN 
GOSUB MIKATABAKUHATSU 
END IF 
IF ABS(INSEKIYOKOB - YOKO) <16 AND ABS(INSEKITATEB - TATE) < 16 THRN 
GOSUB MIKATABAKUHATSU 
END IF 
IF ABS(TEKIMYOKOICHI - YOKO) <16 AND ABS(TEKIMTATEICHI - TATE) く 16 THEN 
GOSUB MIKATABAKUHATSU 
END IF 
IF FIRE = 1 THEN 
MTATEICHI = MTATEICHI - 20 
IF MTATEICHI < 1 THEN FIRE = 0 
IFF<OTHENE=0 
IFF<360 THEN PUT (E, 『), SHOUKYO%, PSET 
IF MTATEICHI > 1 THEN PUT (MYOKOICHI, MTATEICHI),、 MISSILE%。 OR 
E = MYOKOICHI: F = MTATEICHI 
END IF 
IF ABS(MYOKOICHI - UFOYOKO) < 24 AND ABS(MTATEICHI - UFOTATE) < 24 THEN 
GOSUB TEKIBAKUHA 
KND IF 
LOCATE 1, 70: PRINT SCORE 
FUEL2 = FUEL2 - .2 
FUEL = INT(EUEL2) 
LINE (600, 385)-(300 + FUEL。 395), 0, BE 
IF FUEL <= 0 THEN GOTO CHECKOWARI 
IF ROUND > 0 THEN GOSUB TEKIKOUGEKIA 
GOSUB TEKIKOUGEKIB 
GOTO START: 
TEKIBAKUHA: 
GOSUB GAMEN 
PUT (UFOYOEO, UFOTATE), BAKUHA1%,。 PSET 
FOR { = 1 TO BAKUHADELAY 
NEXT 
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GOSUB HOSHI 

GOSUB INSEKI 

PUT (YOKO, TATE), FIGHTER%, PSET 
GOSUB GAMEN 

PUT (UFOYOKO, UFOTATE), BAKUHA2%, PSET 
FOR 1 = 1 TO BAKUHADELAY 

NEXT 

GOSUB HOSHI 

GOSUB INSEKI 

PUT (YOKO, TATE), FIGHTERX, PSET 
GOSUB GAMEN 

PUT (UFOYOKO, UFOTATE), BAKUHA3%, PSET 
FOR I = 1 TO BAKUHADELAY 

NEXT 

GOSUB HOSHI 

GOSUB INSEKI 

PUT (YOKO, TATE), FIGHTERX, PSET 
GOSUB GAMEN 

PUT (UFOYOKO, UFOTATE), BAKUHA4%, PSRT 
FOR 1I = 1 TO BAKUHADELAY 

NEXT 

GOSUB HOSHI 

GOSUB INSEKI 

PUT (YOKO, TATE), FIGHTER%, PSET 

FIRE = 0 

UFOLIFE = 0 

MYOKOIHI = YOKO: TATEICHI = TATE 
SCORE = SCORE + 10000 

TIMECOUNT = 0 

RETURN 

OWARI: 

LOCATE 10, 35: PRINT "GAME OVER" 
LOCATE 12, 25: PRINT "DO YOU WANT TO PLAY AGAIN (Y/N)7" 
300 


A$ = INKEY$ 

IE 4$ = "THEN GOTO 300 
IF A$ = "y” THRN RUN 

IF 4$ = "Y" THEN RON 

IF A$ = " ツ " THRN RUN 
END 

HOSHI: 


BA = A+ HOSHIIDOU 

If HA > 330 THEN BHA = 0 
PSET (0, HA, 7 

HB = HB + HOSHIIDOU 

IE HB > 330 THEN HB = 0 
PSET (100, HB), 7 

HC = HC + HOSHIIDOU 

IE HC > 330 THERN HC = 0 
PSET (150, HC), 7 

HD = HD+ HOSHIIDOU 

If HD > 330 THEN HD = 0 
PSET (200, HD), 7 
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HE = HE + HOSHIIDOU 

IFHE>330THENHE=0 

PSET (250, HE), 7 

HE = HE + HOSHIIDOU 

IFHE>330THERN 還 =0 

PSET (300, 還 ), 7 

HG = HG + HOSHIIDOU 

IF HG >330 THENHG=0 

PSET (350, HG), 7 

四 = 田 + HOSHIIDOU 

IF 田 >330THEN 田 =0 

PSET (400, 田 ), 7 

HI = HI + HOSHIIDOU 

IFHI>330THENHI=0 

PSET (520, HI), 7 

HJ = HJ + HOSHIIDOU 

IFHJ>330THENH 還 =0 

PSET (600, BU), 7 

耶 = 氏 + HOSHIIDOU 

IF 多 >330THRN 凶 =0 

PSET (614, HK), 7 

HL = ル + HOSHIIDOU 

IF 印 >330THENHL=0 

PSET (430, 多 ), 7 

RETURN 

INSEKI: 

IF INSEKILIFEA = 0 THEN 

INSEKIYOKOA = INT(10 + RND * 580): INSEKILIFEA = 1 
END IF 

INSEKITATEA = INSEKITATEA + HOSHIIDOU 

IF INSEKITATEA > 300 THEN 

INSEKITATEA = 0 

INSEKILIFEA = 0 

END IF 

IF INSEKILIEEA = 1 THEN PUT (INSEKIYOKOA, INSEKITATEA), INSEKI%, PSET 
KINSEKIYA = INSEKIYOKOA: KINSEKITA = INSEKITATEA 
IF INSEKILIFEB = 0 THEN 

INSEKIYOKOB = INT(10 + RND * 580): INSEKILIFEB = 1 
END IF 

INSEKITATEB = INSEKITATEB + HOSHIIDOU 

IF INSEKITATEB > 300 THEN 

INSEKITATEB = 0 

INSEKILIEEB = 0 

END IF 

IF INSEKILIFEB = 1 THEN PUT (INSEKIYOKOB, INSEKITATEB)。 INSEKI%。 PSET 
KINSEKIYB = INSEKIYOKOB: KINSEKITB = INSEKITATEB 
RETURN 
TEKIKOUGEKIA: 

IF UFOLIFE = 0 THEN GOTO 30000 

IF ABS(UFOYOKO - YOKO) < (20 + INT(RND * 10)) AND TEKIFIRE = 0 THEN 
TEKIMYOKOICHI = UFOYOKO: TEKIMTATEICHI = UFOTATE+ 32 
IF INT(RND * 10) > 7 THEN TEKIFIRE = 1 

END IF 
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TEKIKOUGEKIB: 

IF TEKIFIRE = 1 THEN 

TEKIMTATEICHI = TEKIMTATEICHI + 20 

IF TEKIMTATEICHT > 330 THEN TEKIFIRE = 0 
IFP>1ANDQ<360 THEN PUT (P, Q), SHOUKYO%, PSET 
IF TEKIMTATEICHI < 330 THEN PUT (TEKIMYOKOICHI, TEKIMTATEICHI)。 TEKIMISSILR% 
P = TEKIMYOKOICHI: Q = TEKIMTATEICHI 

END IE 

RETURN 

MIKATABAKUHATSU: 

PUT (YOKO, TATE), FIGHTER%, PSET 

IF UFOLIFE = 1 THEN PUT (UFOYOKO, UFOTATE), UEO%, PSET 
GOSUB GAMEN 

PUT (YOEO, TATE), MBAKUHA1%, PSET 

FOR I = 1 TO (BAKUHADELAY * 2 + 700) 

NEXT 

IF UFOLIFE = 1 THEN PUT (UFOYOKO, UFOTATE), UEO%, PSET 
GOSUB GAMEN 

PUT (YOKO, TATE)。 MBAKUHA2%, PSET 

FOR 1 = 1 TO (BAKUHADELAY * 3 + 700) 

NEXT 

IF UFOLIEE = 1 THEN PUT (UFOYOKO, UFOTATE), UFO%, PSET 
GOSUB GAMEN 

PUT (YOKEO, TATE),MBAKUHA3%, PSET 

FOR 1 = 1 TO (BAKUHADELAY * 3 + 700) 

NEXT 

IF UFOLIFE = 1 THEN PUT (UFOYOKO, UFOTATE), UFO%, PSET 
GOTO OWARI 


GAMEN = GAMEN + 1 

IF GAMEN > 1 THEN GAMEN = 0 

FOR 1 = 1 TO MISSILEKAZU 

LINE (I * 10, 370)-([ * 10 + 4, 390), 7, BE 
NEXT I 

LINE (300, 385)-(300 + FUEL, 395), 2, BE 
RETURN 

CHECKOWARI: 

ROUND = ROUND + 1 

IF (SCORE - OLDSCORE) > 40000 THEN 
MISSILEKAZU = 16: FUEL = 300: FUEL2 = FUEL: OLDSCORE = SCORE 
FOR I = 1 TO MISSILEKAZU 

LINE (I * 10, 370)-([ * 10 + 4, 390), 7, BE 
NKXTI 

LINE (300, 385)-(300 + FUEL, 395)。2, BE 
GOTO START: 

END IF 

GOTO OWARI 
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レコ 


ゲー ム の 大 秘密 " 


セガ は , 「『「 ス ペー スハ リア ー』 や 『 ト ッ プ ガン 』 と いう よう な 敵 が 向う か ら 向 
か っ て 近づい て 来る 中 を , 自分 が 動き 回 る 3 次 元 的 な 立体 ゲー ム を 得意 と し て 
いま す . 

並 通 の ゲー ム が 上 か ら 見 た と ころ か , そう で な けれ は ば 横 方 向 か ら 見 た 形 の も 
の が 多い の に 比べ , より 自分 が その 中 に いる と いう 臨場 感 に あふ れ た ゲー ム と 
な っ て いま す . 

今度 は , この 3 D ゲ ー ム (3 dimension の 略 , 三次 元 の ゲー ム ) の 秘密 に せま っ 
て 見 まし ょ う ( セ ガ さ ん 秘密 を バラ し て ゴメ ン ナ サイ ). 

これ ら の ゲー ム の 絵 は , 2 つの シス テム か ら 成 り 立 っ て いま す . 1 つ は , 概 
略 の 景色 な ど を 計算 に より 直線 で 分 け て , その 中 を ある 色 で 平面 と し て 塗っ て 
行く 方 法 で す . この や り 方 に より , 概略 の 地形 な ど を 表示 し ます . 

次 に , 敵 の キャ ラク タ や 障害 物 な ど が 遠く か ら だ ん だ ん と 迫っ て くる よう に 
見 える 表示 で す . これ は , 実は キャ ラク タ を 画面 に PUT し て いる の で す が , 同 
じ キ ャ ラク タ に 対し て 小さ な も の か ら 大 き な も の まで , 複数 の 絵 を 用 意 し て お 
きま す . これ ら と の 間 の 距離 を 計算 し て , 遠く に ある と き は 非常 に 小さ な キャ 
ラク タ か ら 始 め , 近づく に つれ て どん どん 表示 する 絵 を 大 き な も の に 変え て い 
っ て いる の で す . 
背景 と な る 平面 の 変化 の 上 に , だ ん だ ん と 大 きく な る キャ ラク タ が 動く こと 
に より , 立体 的 に 迫っ て 来る 感じ を うま く 出 し て いま す . 

絵 を 大 きく する の に , 1 つ ず つ 全 部 描い て いる の は 大 変 で す . そこ で , 絵 を 
2 倍 , 3 倍 , 4 倍 の 大 き さ に し て , それ ぞ れ を セー ブ プ す る プロ グラ ム EXPAND. 
BAS を 作っ て 見 まし た . 
まず キャ ラク タタ ジェネレータ 用 プロ グラ ム CGENE.BAS で 敵 の モビ ルス ー 
ツ や 怪獣 の 絵 を 描い て くだ さい . この と き 32X32 の と 枠 い っ ぱい に 描か ず 上 下 
2 ドッ ト ず 一 左右 4 ドッ ト ず つ 程 度 あ け て お いて くだ さい . こう する こと に よ 
り , 消去 の プロ セス を 減ら すこ と が で きま す . 
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電電 力 が 出 3 な ちあ ン 
これ が , 3D ゲ - ム の 


に EE ああ 


作っ た キャ ラク タ は , 7 文字 以下 の 名 前 を 付け て セー ブ プ し て お いて くだ さい . 
CGENE.BAS を 抜け て プロ グラ ム EXPAND. BAS を 実行 し て くだ さい . ファ 
イル 名 を 聞い て 来る の で , 先程 セー ブ し た 名 前 を 入れ て くだ さい (拡張 子 .GRA 
は いり ませ ん ). 

プロ グラ ム は , 自動 的 に 2 倍 , 3 倍 , 4 倍 の 大 き さ の 絵 を 作り , 元 の 名 前 の 
う . し ろ に 2。 3, 4 を 付け た 名 前 で セー プ し ます . あと は この 大 きく な っ た だ た キ 
ャ ラク タ を 使い , 最初 は 小さ な キャ ラク タ を 表示 し , だ ん だ ん と 大 き な キ ャ ラ 
クタ を 表示 する よう に すれ ば , 敵 が せま っ て くる ゲー ム を 作る こと が で きま す . 
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EXPAND. BAS プ ログ ラム 


SCREEN 88, 3, 
CLS 

WINDOW SCREEN 
DIM Z%(800) 
START: 


1 還 了 | 


(0, 0)-(639, 399) 


INPUT "FILENAME=", NAME$ 


IF NAME$ = "の" 


THEN GOTO START: 


IF NAME$ = "THEN END 
DEF SEG = VARSEG(Z%(0)) 
OFFSETX% = VARPTR(Z%(0)) 


BLOAD NAME$ + ".GRA", OFFSETX% 

PUT (500, 100), 2% 

FOR { = 0 TO 31 

FOR J = 0 TO 31 

COLOR2 = POINT(500 + [, 100+J) 

PSET (15+ I * 2。15+J*2), COLOR2 
PSET (15+ IT* 2+ 1, 15+J*2), COLOR2 
PSET (15+T*2. 15+J*2+1), COLOR2 
PSET (15+I*2+1,。 15+J*2+1), COLOR2 
NEXT J 

NEXT I 

LOCATE 13, 52: PRINT " 2 


DIM Z2%(3200) 


DEF SEG = VARSEG(22%(0)) 
GET (15, 15)-(15 + 32 * 2, 15+ 32 * 2), 22% 
OFFSET% = VARPTR(Z2%(0)) 


LOCATE 13, 52 
BSAVE NAME$ + 


LOCATE 13, 52: 


CLS 


"72" + "。GRA"。 OFFSET%, 3200 
PRINT " 


DEF SEG = VARSEG(Z%(0)) 
OFFSET% = VARPTR(Z%(0)) 


BLOAD NAME$ + 


”。GRA”。 OFFSET% 


PUT (500, 100), 2% 

FOR { = 0 TO 31 

FORJ= 0 TO 31 

COLOR2 = POINT(500 + [, 100+ 


PSET (15 + 1 
PSET (15+ 1 
PSET (15+ 1 
PSET (15 + 1 
PSET (15+ 1 
PSET (15+ [ 
PSET (15 + I 
PSET (15+ 1 
PSET (15 + { 
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*3+ 1 15+J*3), COLOR2 

* 3。15+J*3+ 1), COLOR2 
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*3+ 2。 15+J* 3), COLOR2 

* 3。 15+J*3+2), COLOR2 
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*3+2, 15+J*3+ 1), COLOR2 
*3+ 1, 15+J*3+ 2),。 COLOR2 
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NEXT J 

NEXT 1 

LOCATE 13, 52: PRINT " 

LOCATE 13, 52: PRINT " 

DIM Z3%(7200) 

DEF SEG = VARSEG(Z3%(0)) 

GET (15, 15)-(15 + 32 * 3, 15 + 32 * 3), Z3% 
OFFSET% = VARPTR(Z3%(0)) 

LOCATE 13。52 

BSAVE NAME$ + "3" + ".GRA"。 OFFSET%, 7200 

CLS: 

DEF SEG = VARSEG(Z%(0)) 

OFFSET% = VARPTR(Z%(0)) 

BLOAD NAME$ + ".GRA"。 OFFSETX% 

PUT (500, 100), 2% 

FOR 1 = 0 TO 31 

FOR J = 0 TO 31 

COLOR2 = POINT(500 + 1, 100+J) 

PSET (15+ IT * 4。 15+J*4), COLOR2 

PSET (15+T*4+ 1 15+J* 4)。 COLOR2 
PSET (15+ IT * 4。15+J*4+1),。 COLOR2 
PSET (15+T*4+1, 15+J*4+ 1),。 COLOR2 
PSET (15+T*4+2, 15+J* 4⑳)。 COLOR2 
PSET (15+I*4, 15+J*4+2), COLOR2 
PSET (15+T*4+2. 15+J*4+2), COLOR2 
PSET (15+ IT*4+2。15+J*4+1)。 COLOR2 
PSET (15+ IT*4+1, 15+J*4+2), COLOR2 
PSET (15+T*4+ 3 15+J*4), COLOR2 
PSET (15+ IT*4。 15+J*4+3), COLOR2 
PSET (15+T*4+3. 15+J*4+1), COLOR2 
PSET (15+T*4+3. 15+J*4+2), COLOR2 
PSET (15+T*4+3.15+J*4+3), COLOR2 
PSET (15+T*4+1, 15+J*4+3), COLOR2 
PSET (15+T*4+2. 15+J*4+3), COLOR2 
NEXT J 

NEXT 1 

LOCATE 13, 52: PRINT " 

DIM Z4%(12800) 

DEF SEG = VARSEG(Z4%(0)) 

GET (15, 15)-(15 + 32 * 4。 15+ 32 * 4), Z4% 
OFFSET% = VARPTR(Z4%(0)) 

BSAVE NAME$ + "4" + "GRA"。 OFFSETX。 12800 
LOCATE 13, 52: PRINT ”" 夫 

END 
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Quick [ 
BASiC」 


映画 スタ ー ウ ォ ー ズ ・ 帝 国 の 逆襲 】 で 戦闘 機 XWING が デス スタ ー の 表面 
を 飛び 回 る シー ン が あり まし た . か っ こい いで すね ー. まさ に 手 に 汗 握る と は 
この こと で す . で も , も し あの シー ン で , 音 が 何 も じ な か っ た どど う で し じょう 『 
急 に 迫力 が 減っ て し まい ます . や は り , ゲー ム に も 効果 斉 が 必要 で す . そこ で , 
今度 は 効果 的 な 音 の 作り 方 に つい て 勉強 し ま : 光ら RE 

Quick BASIC で 音 を 発生 きせ る 命令 は , PLAY と SOUND の 2 つ で す . 今 
回 は その 1 つ SOUND 命令 を 使い まし ょ う . SOUND 命令 の 使い 方 は , 次 の と 
共 サ で す 。 


の な い ゲ ー ム な ん て 


。 SOUND_ 周波 数 時間 


周波 数 に は , 38 一 32767 の 間 の 数 を 入れ て くだ さい . これ 以外 の 数 値 を 入れ る 
と エラ ー と な り ま す . 時 間 は , 数 値 が 1 増え る ご と に 約 0.055 秒 増加 し ます . 1 
秒間 音 を 出し た いと き に は 18.2 を 入れ て くだ さい . 


効果 音 の な い ゲ ー ム ハム な ん て 
自分 の 求め る 音 の 周波 数 と 時 間 を 探す に は , いろ いろ な 数 字 を 入れ て 試し て 
みる の が 一 番 良 い 方 法 で す . 


誠に 残念 な が ら , PC-9801E/F/M/U な ど で は , SOUND. PLAY 
命令 で 音程 を 変え 0 る こと は で きま せん . 


生 パ トカ ー 
で は ここ で , パト カー に 似 た 音 を 作っ て み ま し ょ う . プロ グラ ム PATROL. 
BAS を 入力 し て , 実行 し て みて くだ さい . 


PATROL. BAS プ ログ ラム 
FORI=1TO5 
SOUND 1000, 15 
SOUND 500, 15 
NEXT I 


どう で す 。 少し は 仏 て いま し た か ? エッ , 少し テン ポ が ノロ すぎ る 。 で は , 
時 間 に 当 た る 数 字 を 少し 小さ くし て 試し て みて くだ さい . どう で す , うま くい 
きま し な か? 


生 キ カ ン 銃 
キ カ ン 銃 の よう に ト ギ レ , ト ギ レ の 音 は どう する の で し ょ うか ? プロ グラ 
ム KIKANJUU.BAS を 入れ て 実行 させ て みて くだ さい . 
KIKANJUU. BAS プ ログ ラム 


FORJ=1T0O15 
SOUND 38,1 


FORI =1 TO1000 
NEXT 1 
NEXT J 


音 を ト ギ レ , ト ギレ に させ る た め に は , プロ グラ ム KIKANJUU.BAS を 入力 
し て 3 行 目 か ら 4 行 目 まで の よう に , 間 に FOR NEXT の グル ー プ を 入れ て , 
時 間 を 消費 させ る よう に し ます . FOR I = 0 TO ? の ? に あたる 数 字 の 値 を 
大 きく すれ ば する ほど , 無音 の 時 間 が 長く な り ま す . 

この よう に , SOUND 命令 は , 任意 の 周波 数 の 音 を 任意 の 時 間 発 生き せら れ 
る 特徴 を 持っ て いま す . 

小鳥 の さえ ずり ・ エ ンジ ン 音 ・ ビ ー ム 砲 の 音 を な ど ,。 いろ いろ な 音 に 挑戦 し て 


みて くだ さい . 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


(Quick 
BASIC じ 


介 彼 女 の 誕生 日 の た め の バ ー ス デー ソン グ 
國 | 機種 に よっ て は , 音程 を 変え ん る こと が で きず , 音楽 が 実行 で きま 


)D り な い ゲ ー ム な ん て 


せん 。 ゴメンナサイ. 


アーム の 世界 に は 音楽 が 付き も の で す . 音楽 が な けれ ば , な ん と 汐 し いも の 
< な っ て し まう こと で し ょ う . 

最近 で は , ゲー ム か ら 音 楽 が 独立 し て 「 光 栄 ] の サウ ンド ウェ アシ リー ズ で は , 
ほとん どの ソフ トウ ェ ア に 対応 する CD が 存在 し ます . また , 「 ド ラク エ 交 響 曲 」 
の よう な , フル オー ケス トラ 版 も 出 て いま す . 

Quick BASIC で 音楽 を 演奏 し て み ま し ょ 9 

プロ グラ ム “BIRTHDAY. BAS" を 入力 し て 実行 し て みて くだ さい . 


BIRTHDAY. BAS プ ログ ラム 
PLAY "T25103C3C5D2C2F2E1C3C5D2C2G2F1 " 


PLAY "C3C5>C2<A2F2E2D103B-3B-5A2F2G2F1" 


どう で すか , ちゃ ん と バー ス デ ー ソ ング が 聞こ えて きま し た か ? 

Quick Basic で は , 音楽 を 実行 する こと が で きま す . これ で ぐっ と 迫力 が 増 
し て きま す . で は , ここ で 音楽 に 関す る 命令 を 見 て 行き まし ょ う . 

まず PLAY 命令 で す が , これ が 音楽 の 実行 命令 で す . あと の "で 囲ま れ た 中 
の 命令 を 音楽 命令 と し て 実行 し ます . まず T251 で す が , T の あと の 数 字 
(32-255) は , 演奏 の テン ポ を 表し ます . この 数 字 が 大 きけ れ ば 演奏 速度 が 上 が 
り ます. 

T251 の あと の 0.3 で す が , O の あぁ と の 数 字 (0 一 6) により, 演奏 する 音 の 
オク ター プ を 指示 し ます . 
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音楽 の な い ゲ ー ム な ん て 


> を 使う と 。 いま の オク ター プ か ら 1 つ 上 の オク タダ タープ に , ぐ を 使う と ,。 1 つ 
下 の オ クタ ー ブ に 移る こと が で きま す . 以後 は 音 の 命令 で す . 

音 の 高 さ は , 次 の 文字 で 表し ます . 

だ 必 。 信 ジッ 必 ラ 
《。 D! 民 E G 為 BB 

また , この 文字 の 直後 に を 付け る と 半音 下がり , 十 を 付け る と 半音 上 が り 
ます 。 

各 音 を 表す 記号 の あと に 付く 数 字 は , 音 の 長き を 表し ます . 

1 64 ま で の 数 字 を 入れ ます . 数 字 の 値 が 大 きく な る ほど , 音 の 出 て いる 時 
間 は 短く な り ま す , 音 を 表す 文字 の 替わり に P を 書き , その 後に 数 字 を 書く と, 
数 字 に よっ て 無音 の 時 間 を 作る こと が で きま す . 

演奏 前 に , PLAY "MB" の 命令 を 書い て お く と , バッ ク グ ラウ ンド で 命令 
を 行う こと が で きま す . つま り , 音楽 を 演奏 し な が ら , プロ グラ ム は 次 の 処理 
を 行う こと が で きま す . これ を 上 手 に 使う と , 音楽 を 演奏 し な が ら ゲ ー ム を 行 
うこ と が で き , 市 販 の ゲー ム に グッ ト 近 づき ます . 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


これ で で, 彼女 の ハー ト は 
君 の も の 


アニ メー ショ ツ を 使っ た プレ ゼン デー ショ ン 

彼女 へ の 愛 の 告白 . ウー ン , 上 難 か し いで すね ェ . 
心臓 は ドキ ドキ . 日 の 中 は カラ カラ …… と 

世 を あげ て , プレ ゼン テー ショ ン の 時 代 で す . 

いま ,。 アメ リカ で は パソ コン を 使っ た プレ ゼン テー ショ ン が 大 は や り で す . 
同じ 企画 や 資料 を 見 せる の で も 白黒 の コピ ー で は な く , パソ コン の 画面 上 に 全 
真 や イラ スト , アニ メー ショ ン を 上 手 に 取り 入れ な が ら , また , 音 や 音楽 。 ナ 
レー ショ ン 付 き で 上 手 に 表示 する の と で は , 受け 手 の 受け 取り 方 が 全然 違っ て 
きま す . 

パソ コン の 画面 を , 大 型 の 液晶 プロ ジェ クタ に 表示 で きる 会 議 室 は 大 は や り 
で す . そこ で , 私 達 も アニ メ を 使っ て プレ ゼン テー ショ ン に 挑戦 し て み ま し ょ 
う . 彼女 が 「 ワ ァ , カワ イイ ! 」 と いっ て くれ れ ば 大 成功 で す . 


文 カラ ー ロ 絵 
p.4 参 照 


『 プ レ ゼ ント ,』( 愛 の 告白 の プレ ゼン テー ショ ン ) 
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ご れ で , 彼女 の ハー ト は 君 の も の 


文 カラ ー ロ 絵 p. 4 参照 


BLIDE( 花 嫁 ) MANS( 花 婚 直立 ) MANL( 花 始 左 足 前 ) 


MANR ( 花 婚 右 足 前 ) HART (ハー ト ) 


アニ メー ショ ン の 原理 は 簡単 で す . テレ ビ や 映画 の 絵 が な ぜ 動 いて 見 える か 
と いう と, 少し ずつ 違っ た 静止 画 を 順番 に 写し 出し て いる か ら な の で す . 非常 
に 早い 速度 で これ を 行う と, 人間 の 目 に は あたかも 絵 が 連続 し て 動い て いる よ 
うに 見 えま す . 

(Quick BASIC に よる アニ メー ショ ン も 同じ で , 少し ずつ 違っ た 絵 を 多数 用 
意 し て お き , 順番 に 表示 し ます . 違っ た 絵 を た くさ ん 用 意 す る の が 大 変 で す が , 
キャ ラク タ ジ ェ ネ レ ー タ を 使っ て , 描い た 絵 を 呼び 出し , 少し だ け 変 えて 別 の 
絵 に し て 違っ た 名 前 で 保存 する と いう 作業 を 繰り 返す こと に より 用 意 し ます . 
チョ ッ ト 大 変 そう て CK た め , ガン バッ テ ね . 

例 に よっ て , 口絵 4 ページ 目 の 画 面 例 を 参考 に , CGENE.BAS を 使っ て , 
BLIDE, MANS, MANL, MANR, HART T の 絵 を 摘 い て 。 それ ぞ れ の 名 前 で 
セー ブ し て お いて くだ さい 、. 

絵 が で きた ら , 次 ペー ジ の プロ グラ ム PRESENT. BAS を て いね い に 入 力 し 
て 保存 , 実行 し て みて くだ さい . 

この ブロ グラ ム で は , 最後 に 白い 四角 が 出 て きま す の で , この 中 に 彼女 へ の 
愛 の メッ セー ジ を 書く よう に プロ グラ ム を 直し て くだ さい . 間違っ て も ,。 ほか 
の 女の子 の 名 前 な ん か に し て は だ めで す よ / 100% フ ラ れ ちゃ いま すか ら ネ . 
で は , あな た の 幸運 に 乾杯 / 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


PRESENT. BAS プ ログ ラム 
SCREEN 88, 3, 1, 1 
WINDOW SCREEN (0, 0)-(639, 399) 
CLS 
MANYOKO = 500 
MANTATE = 200 
DELAY = 4000 
HARTYOKO = 100 
HARTTATE = 100 
DIM SHOUKYO%(800) 
GET (1, 1)-(32, 32), SHOUKYOX% 
DIM BLIDE%(800) 
DIM MANS%(800) 
DIM MANL%(800) 
DIM MANRX(800) 
DIM HARTX(800) 
DEE SEG = VARSEG(BLIDE%(0)) 
OFFSET% = VARPTR(BLIDEX(0)) 
BLOAD "BLIDE.GRA", OFFSETX 
PUT (100, 200), BLIDEX, PSET 
DEE SEG = VARSEG(MANS%(0)) 
OFFSET% = VARPTR(MANS%(0)) 
BLOAD "MANS.GRA", OFFSETX 
PUT (MANYOKO, MANTATE), MANS%, PSET 
DEF SEG = VARSEG(MANLX%(0)) 
OFFSET% = VARPTR(MANI%(0)) 
BLOAD "MANL.GRA", OFEFSETX 
DEF SEG = VARSEG(MANRX(0)) 
OFFSET% = VARPTR(MANRX(0)) 
BLOAD "MANR.GRA", OFFSETX 
DEF SEG = VARSEG(HARTX(0)) 
OFFSETX = VARPTR(HARTX(0)) 
BLOAD "HART.GRA", OFFSETX 
DO WHILE MANYOKO > 140 
FOR 1 = 1 TO DELAY 
NEXT 1 
MANYOKO = MANYOKO - 10 
PUT (MANYOKO, MANTATE), MANLX%, PSET 
EOR I = 1 TO DELAY 
NEZT 
MANYOKO = MANYOKO - 10 
PUT (MANYOKO, MANTATE), MANR%,。 PSET 
LOOP 
PUT (MANYOKO, MANTATE)。 MANS%,。 PSET 
PUT (BHARTYOK0, HARTTATE), HARTX, PSET 
EOR 1 = 0 TO 15000 
NEXT I 
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ご これ で , 彼女 の ハー ト は 君 の も の 


FORTI =1T70100 
HARTYOKO = 50 + INT(RND * 550) 
HARTTATE = 20 + INT(RND * 300) 
PUT (HARTYOKO, HARTTATE), HARTX, OR 
IORJ=1T0O300 
NEXT J 


NEXT 
OR I = 0 TO 15000 


NEXT I 
LINE (200, 100)-(500, 250), 7, BE 


(プロ グラ ム を 完全 に 入力 し た に も か か わら ず 動 作 し な い 場 合 は 。 11 ペ ー ジ の 
囲み , お よび 90 ペ ー ジ の コラ ム を 参考 に し て みて くだ さい ) 


// 


コン 君 の 
お か け で す 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


BAGSIC は 
ヴ ラ ム 言語 の 英語 ? 


いま や 英語 は , 世界 の 標準 語 で す 。 英語 を し ゃ べ れ ば 世界 中 いろ いろ な と こ 
ろ で 困り ませ ん . また , 飛行 機 の 管制 か ら 科学 論文 まで , 英語 で な けれ ば 困っ 
て し まう 分 野 が いっ ぱい あり ます . アメ リカ 西海 岸 で は , 英語 と 日 本 語 , 両方 
が きち ん と 話せ る 人 は 引っ ぱり だ こ で す . 


ょ 君 の プロ グラ ム が IBM PO 上 で 全 世 界 ど こ で も 動く 


実は 。 Quick BASIC は ,、 プロ グラ ム 言 語 の の 英語 な の で す . 

エッ 。 単語 が 全部 英語 だ か ら 英 語 に 決ま っ て いる っ て ? そう いう 意味 で は 
あり ませ ん . 

Quick BASIC で 作ら れ た プロ グラ ム は , まっ た く 改 造 な し か , また は ほん の 
少し の 改造 で , 非常 に 多く の パソ コン 上 で 動き ます . 日 本 の パソ コン で も , PC 
-9801 だ け で な く , 富士 通 の FMR シリ ー ズ , FM TOWNS, IBM55, AX な 
ど ,。 その マシ ン 用 の Quick BASIC が あり ます . それ を 買え ば , プロ グラ ム の 
移植 も 簡単 で す . 

それ より 何より 一 番 す ご い の は , 世界 中 で も っ と も 使わ れ て いる パソ コン の 
IBM PC と その コン バチ ブル 機 で も 同じ よう に 最小 限 の 努力 で 動き ます 
(Quick BASIC は も と も と IBM PC の た め に 作ら れ た だ 言語 で すか ら , 当たり 前 
と いえ ば , 当たり 前 で す が ). 

いま も ,。 私 の 机 の 上 で は , IBM PC と PC-9801 の 2 公 の マシ ン 上 で プロ グラ 
ム が いっ だ た りき だ た り し て いま す . 

ほか の 言語 で も IBM PC と PC-9801 で 共通 の も の も ある の で す が , グラ フィ 
ッ ク 命 令 が か な り 違 っ た り し て , 書き 換え る の が 大 変 で す . も ちろ ん , アッ プ 
ル の マッ キン トッ シュ 用 の Quick BASIC も あり ます . 

ぜひ , すばらし い ス ー パ ペー ゲー ム を 作っ て , 日 本 で だ け で な く 世 界 に 売り まく 
っ て くだ さき さい. アメ リカ で も “Nobunaga's Ambition" (信長 の 野望 ) な どの 光栄 
の ゲー ム や "テグ サー" な ど が 売れ て いま す . 
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OuickK BASIC は プロ グラ ム 言 語 の 英語 や 


日 本 IBM が DOS/Y な ど を 売り 出し て , 世界 中 の IBM で 日 本 語 を 使え る よ 
うに な っ て きたり, セガ が テラ と いう メガ ドラ イブ と IBM 両方 に な れる マシ 
ン を 作る な ど , IBM PC が 普及 する に つれ , 簡単 に 移植 で きる Quick BASIC 
の 価値 が ます ます 高まり ます . 


2( こ 
世界 の パソ コン の 
輸 
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いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


一 コン ピュ ー タ も 
わか っ た ゾ / 


スー パー コン ピュ ー タ っ て 知っ て ます か 7? 計算 速度 が メチ ャ クチ ャ 速く て , 
天気 の 数 値 子 報 を し た り , 車 や 飛行 機 の 周り の 空気 の 流れ を 計算 し て 型 を 決め 
た り . 果て は , 車 を どう 作れ ば , どれ ぐら い の 強 度 に な る か 計算 し た り で きま 
す . 筆者 の 弟 は , 車 を 作る 仕事 を し て いま す が , 昔 は と りあ える ず 作 っ て みて は 
和 壁 に ぶつ け て 壊れ 方 を 調べ , 部 品 の 厚 さ や 強度 を 変え て , また 作っ て は ぶつ け 
る と いう こと を 何 回 か 繰り 返し , や っ と 設計 を 決め て いた そう で す . いま で は , 
まず コン ピュ ー タ の 中 で 架空 の 自動 車 を 壁 に ぶつ ける 計算 を し て , その 計算 に 
よっ て 部 品 を 決め , 実際 に 作っ て 計算 を 確か め る 操作 は 1 回 で 済む と いう よう 
に , 時 間 , 物 , 金 , すべ て に わた っ て も の すご く ム ダ が 省け る よう に な っ た そ 
う で す ., 

スペ ー ス シャ トル や 吉 音 速 機 な ど は , スー パー コン ピュ ー タ が な けれ ば , 作 
る こと が で きま せん . 

まさ に , これ か ら の 世の中 ,「 ス ー パ ー コ ンピュータ を 制す る も の が 世界 を 制 
する 」 と いっ て も 過言 で は あり ませ ん . 

と ころ で , この スー パー コン ピュ ー タ は , ほとん ど が FORTRAN と いう 言語 
に よっ て プロ グラ ム を 速く 動か す よ うに 作ら れ て いま す . 科学 技術 計算 の 世界 
で は , 言語 は FORTRAN が 主流 な の で す . 過去 に 作ら れ た FORTRAN の プロ 
グラ ム の 資産 は , 作り 直す と し た ら 天 文学 的 な 時 間 と パワ ー を 必要 と し ます . 

「 な ぜ Quick BASIC の 本 に , FORTRAN の 話 が 出 て くる の か ? 」 で すっ 


実は , ここ まで Quick BASIC を 勉強 し て きた あな た は , この FORTRAN の 
世界 に あと 1 歩 の と ころ まで 来 て いる の で す . FORTRAN と BASIC は 驚く ほ 
ど 良 く 似 て いま す . 最初 に FORTRAN を 学び 始め た と き , あん まり 似 て いる 
の に ピッ クリ し て し まい まし た . 
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スー パー コン ピュ ユー タ も わか つ だ ゾ / 


マ ア , BASIC を 作っ た アメ リカ ・ ダ ー ト マス 大 学 の ケ メ ニ ー(J. Kemeny) と 
カー ツ (T. Kurtz) の 2 人 が , FORTRAN の 前 に 学生 に 簡単 に わか る よう に と , 
まね し て 作っ た の だ か ら , 当然 と いえ ば 当然 な の で す が ……. 

アメ リカ で は , 国家 が 『 ス ー パ ー コ ンピュータ の カカ が , 将来 の 国 の カカ だ 』 と 
いう の を よく 認識 し て いま す . 

毎年 。 全国 か ら お も し ろ い テー マ を 持っ た 数 学 や コン ピュ ー タ が 大 好き な 高 
校生 を 何人 も 集め ます . そし て , 国 の 費用 で , スー パー コン ピュ ー タ を 使わ せ 
て くれ る の で す . 

も ちろ ん , 1 人 で は プロ グラ ム の 作り 方 機械 の 操作 が わか ら な いと 困る の 
で , 専門 の 係 の 人 が つい て くれ ます . 人 種 な ど に も こだわ ら ず , この 間 は 日 本 
人 の 留学 生 が 選ば れ て いま し た . この スー パー コン ピュ ー タ の 1 時間 の 使用 料 
が , 何 十 一 何 百 万 円 し (いう し ろ も の で すか ら , いか に すご いか が わか り ま す . 
887 。 ウラ ヤマ シイ / 

日 本 に も 早く こう いう 時 代 が 来る と いい の で す が ……. 

ここ まで プロ グラ ム の 力 を 付け て きた あな た , ぜひ , スー パー コン ピュ ー タ 
目指 し て 頑張 っ て くだ さい . 


1 
| | 
| 昔々 , ある 通信 ソフ ト と モデ ム を 使っ て , 通信 を し よう と し まし た が 
) どう も うま くい きま せん . どう や ら デ ィ ッ プス イッ チ が あや し いら し く , : 
! マニ ュ ア ル 片 手 に 1 が ON, 2 が OFF と や っ て いま し た が 全然 うま く ! 
i いき ませ ん . これ は も うだ れ か に 助け て も ら う 以 外 は な いと , NEC に 電 | 
| 話し て , 係 の 人 に 1 が ON で … と , 悪戦 苦闘 30 分 , その と き 係 の 人 が 一 
| 言 ,・「 お 客 様 。 この ディ ッ プ スイ ッ チ 下 が ON で すけ れ ど , ヒ ョ ッ ト し て | 
人 
i 。 グッ ト 沈 黙 の あと で ,「 ゴ メン ナ サ イ ]」 を 繰り 返し て 電話 を 切っ た 私 で : 
| 69 
| 以来, 絶対 に ディ ッ プ スイ ッ チ の 表示 は , ON / OFF で は な く , 上 と | 
| 下 が い いと 信じ て いま す . 


いよ いよ 本 格 的 ゲー ム の 製作 に 入ろう 


ー 流 ブロ グラ マー 


どう で す . ここ まで や っ て き て , コン ピュ ー タ の プロ グラ ム に 必要 な 基本 的 
な こと は , ほとん ど と 勉強 し て きま し た . プロ グラ ム 作 り も , ゲー ム 作 り も 意外 
と 簡単 だ っ た と 思い ませ ん か ? 

あと は , “自分 が な に を や り た い の か "と いう アイ デア と コン セプト の 問題 で 
す . アイ デア と コン セプト さえ し っ か り し て いれ ば , それ を 実際 の プロ グラ ム 
こ 書 いて 行く や り 方 は 必ず 見 つか る も の で す . 

も う あ な た も 一 流 プ ログ ラマ ー の 仲間 入り が で きま し た . あと は , ゲー ム で 
も 技術 計算 で も , 自分 の や り た い 分 野 で 思い っ きり 腕 を ふる っ て くだ さい . 


- HaVe TICe day / 


ここ まで , で きる だ け 楽 し く プ ログ ラミ ング の 勉強 が で きる よう に と 書い て 
来 ま し た が , いか が で し た か . 

コン ピュ ー タ の 世界 が 楽し い の は , 自分 が 命令 し た 通り に 動い て くれ る こと 
で す . プロ グラ ム の 中 に バグ (間違い ) が あっ て 動か な いと き で も , それ を 探し 
出し て 動く よう に する の は , まる で 推理 小説 の 中 で , 自分 が シャ ー ロ ッ ク ホ ー 
ムズ か ポワロ に な っ た 気分 で す . お まけ に 結果 は すご く は っ きり 出 て 来る の で 


プロ グラ ム を 作る 上 で 一 番 大 切な の は , 考え 方 で す . 論理 の 流れ が し っ か り 
し て いれ ば , どん な プロ グラ ム 言 語 を 使っ て も , 固有 の 命令 に 置き 換え る だ け 
で 済み ます . みな さん は , この 本 の 中 で 十分 に その 力 が 付い て いる と いえ る で 
し よう 。 

あと は , 自分 の や り た いこ と を 楽し みな が ら 挑 戦 し て くだ さい . 

で は , また いつ か , どこ か で お 目 に か か れる 日 を 楽し み に し て いま す . 
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PC-9801 と IBM PC で デー タ を 簡単 に 行き き さ せ る 方 法 ( 5 イン チ 2 


HD 用 ) を 述べ ます . NAO 
MS-DOS の 一 部 の FORMAT コマ ンド に は , 隠し コマ ンド が あり ま 

す . MS-DOS の シス テム ディ スク を A ド ライ ブ に 入れ , 新しい 2HD 版 

の ディ スク を B ド ライ ブ に 入れ て くだ さい . 
この 状態 で , FORMAT_B:/5 [9] と 打ち 込ん で くだ さい . こう や っ 

て FORMAT し た 5 イン チ 2 HD の ディ スク は , と も に 2HD の 読め る 

PC-9801 と IBM PC どちら か ら で も 読み 書き で きま す . 

PC-9801 で 書き 込ん だ Quick BASIC で 作っ た プロ グラ ム を , テキ ス 
ト 型 式 で ,。 この いま 作っ た ディ スク に 保存 し ます . 

この ディ スク を IBM PC の 5 イン チ (2HD の 読め る タイ プ ) に 入れ て 
IBM PC 用 の Quick BASIC で 読み 出す と , な ん な く デ ー タ の 移動 に 成 
功 し ます . 20 が 22Yh3 和 ポア ツブ 渋 や 2 財 を まつ な で 示 レ ググ 選 グ 
ラム や LAN( ロ ー カル エリ アネット ワー ク ) な どい り ま せん . また だ た, キャ 
ラク タ ジ ェ ネ レ ー タ で セー プ ブ し た 絵 も ,, その まま 使え ます . 

IBM PC と PC-9801 の 間 の デー タ 交 換 は , FORMAT/5 の ディ スク を 
使え を ば で きる の は , いま 述べ た と お り で す が , この と き , 必ず テキ スト 
形式 で SAVE( 保 存 ) し て くだ さい . テキ スト 形式 で の SAVE( 保 存 ) は , 
ファ イル を 呼び 出し "名 前 を 変え て 保存 ……" を 選び ます . その と き , 右 
側 に ファ イル 形式 を Quick BASIC 標準 ファ イル か 芽 / テ キス ト フ ァ イ 
ル に する か 出 て いる の で , T/ テ キス ト フ ァイル 側 の DOT を マウ ス で ク 
リッ ク す る か , TAB キー と 矢印 キー で 選ん で , その 後 , 確認 を クリ ッ ク 
する か リタ ー ン キー を 押し て くだ さい . テキ スト ファ イル 形式 で SAVE 
し な いと 互い に ファ イル が 読め ませ ん . 

お こと わり : この 方 法 は , 正規 に サポ ー ト され て いな い の で , 将来 的 に 
や め に な る か も 知れ ませ ん . また , DOS の バー ジョ ン や , 機械 の 相性 
に よっ て は , 動か な いか も 知れ ませ ん . (「 オ イ , 動か ね を ん, ドウ シテ 
クレ ル 」 と すご まれ て も , 当局 は 一 切 関知 し ませ ん の で あし か ら ず /) 
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